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ABSTRACT 


This  thesis  documents  a  simulation  study  of  light  infantry  operations  in  mid-to-high 
intensity  conflict.  An  initial  data  analysis  is  performed  using  deliberate  attack  missions 
conducted  at  the  U.S.  Army  National  Training  Center  (NTC)  and  compares  the  meas¬ 
ures  of  effectiveness  (MOE)  of  fully  modernized  heavy  forces  to  the  effectiveness  of 
heavy  forces  operating  with  an  attached  light  infantry  battalion.  This  analysis  includes 
development  of  a  light  infantry  attack  simulation  which  employs  object  oriented  pro¬ 
gramming  in  MODSIM  11.  The  simulation  models  light  infantry  operations  in  the  NTC 
environment  and  is  used  to  explore  alternative  tactical  employment  techniques  designed 
to  enhance  unit  performance  on  the  AirLand  Battlefield.  This  thesis  also  describes  the 
tank  and  mechanized  infantry  task  force,  the  light  infantry  task  force,  the  heavy/light 
rotation  concept,  the  deliberate  attack  mission,  and  the  NTC  environment  and  data 
collection  capabilities. 

The  simulation  models  an  infantry  attack  against  opposing  forces  in  fixed,  fortified 
positions.  The  model  is  a  high  resolution  simulation  which  builds  object  coie  from 
infantry  platoon  level  through  battalion.  The  simulation  depicts  unit  movements,  attri¬ 
tion  to  indirect  fires,  and  target  engagements.  The  positioning  of  enemy  forces  is  ex¬ 
tracted  from  actual  battlefield  positions  during  an  NTC  deliberate  attack  mission.  The 
simulation  replicates  close  operations  in  which  the  light  force  mission  is  to  gain  an  initial 
penetration  of  enemy  barrieis  and  pass  the  heavy  force  forward  to  continue  the  attach 
The  simulation  study  explores  the  use  of  light  forces  in  alternative  tanical  scenarios. 
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I.  INTRODUCTION 


A.  BACKGROUND 

The  Army  of  the  21st  Century  must  meet  the  fundamental  requirements  of  versatil¬ 
ity,  deployability,  and  lethality.  AirLand  Battle,  the  Army's  current  doctrine,  provides 
the  framework  for  organizing,  training,  and  equipping  forces  to  maximize  combat  power 
and  effectiveness  across  the  spectrum  of  conflict,  from  low  to  high  intensity.  The  re¬ 
quirement  to  maintain  an  appropriate  mix  of  heavy,  light,  and  special  operations  forces 
is  one  of  six  Army  fundamental  imperatives  (Ref.  1].  At  the  operational  and  tactical 
levels,  heavy  and  light  forces  must  be  prepared  to  fight  on  an  integrated  battlefield  to 
exploit  and  optimize  the  capabilities  of  each  force.  The  Army's  Combat  Training  Cen¬ 
ters  (CTCs)  protide  a  tough,  realistic  environment  in  which  to  train  forces  to  fight  on 
the  combined  arms  battlefield. 

The  National  Training  Center  (NTC)  is  the  testbed  of  the  AirLand  Battle  doctrine. 
One  of  the  recurrent  themes  of  training  at  the  NTC  is  the  integration  of  light  infantry 
forces  on  the  battlefield  with  heavy  force  operations.  The  first  of  the  "heavy,  light"  ro¬ 
tations  was  conducted  in  the  spring  of  1987,  There  have  been  12  heavy’,  light  rotations 
out  of  some  66  rotations  at  the  time  of  this  writing.  The  application  of  combined  heavy 
and  light  force  operations  stems  from  the  AirLand  Battle  imperatives,  which  are  funda¬ 
mental  for  success  on  the  modern  battlefield.  Specifically,  the  one  imperative  which  de¬ 
scribes  the  purpose  of  integrating  forces  is  entitled  "Combine  Arms  and  Sister  Services 
to  Complement  and  Reinforce."  Complementary  combined  arms  expose  the  enemy  to 
the  effects  of  one  arm  while  he  attempts  to  evade  the  effects  of  another.  Arms  and  ser¬ 
vices  reinforce  each  other  when  one  serves  to  increase  the  effectiveness  of  the  other  or 
combine  to  produce  mass.  [Ref.  2:  p.  25] 

Successful  integration  of  light  and  heavy  forces  is  a  combat  multiplier  on  the  bat¬ 
tlefield.  Intuitively,  an  analysis  of  units  fighting  as  part  of  a  combined  arms  force  should 
suggest  a  measurable  increase  in  the  effectiveness  of  engaged  forces.  The  NTC  provides 
the  data  collection  environment  to  test  such  an  hypothesis.  However,  after  reviewing 
observer  comments  over  numerous  heavy, light  rotations,  an  apparent  trend  seems  evi¬ 
dent:  our  heavy  and  light  forces  are  not  synchronized  in  their  efforts  on  the  battlefield. 
Additionally,  a  cursory  analysis  of  battlefield  damage  and  casualty  rates  indicates  that 
the  light  forces  typically  contribute  little  to  the  overall  battle  while  suffering 
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overwhelming  casualties.  Major  General  Peter  J.  Boylan,  in  a  recent  article  addressing 
the  employment  of  heavy  and  iight  forces  in  mid-to-high  intensity  conflict,  states 

It  has  been  demonstrated  time  and  time  again  that,  other  conditions  being  equal, 
light  forces  pitted  against  heavy  combat  forces  will  suffer  unacceptably  high  losses 
or  be  defeated  almost  100  percent  of  the  time.  The  defeat  of  enemy  heavy  maneuver 
forces  will  almost  certainly  require  the  employment  of  similar  type  heavy  forces, 
even  with  enhanced  light  force  technology.  (Ref.  3:  p.  28] 

B.  PURPOSE  AND  SCOPE 

The  purpose  of  this  thesis  is  to  analyze  light  infantry  efTectiveness  through  devel¬ 
opment  and  experimentation  with  a  simulation  model.  The  scope  of  this  thesis  is  limited 
to  it:  odeling  light  force  operations  in  a  heavy,  light  scenario  consistent  with  the  capabil¬ 
ities  of  the  NTC.  This  thesis  emphasizes  the  development  and  use  of  a  light  force  sim¬ 
ulation  model  and  employs  the  object  oriented  programming  language  MODS1.M  11. 

Current  Army  capabilities  to  test  light  infantry  operations  in  a  mid-to-high  intensity 
environment  are  limited.  Analyzing  light  infantry  effectiveness  may  be  accomplished 
through  several  approaches,  two  of  which  are  presented  here:  an  analysis  of  measures 
of  efTectiveness  in  training  at  the  CTCs,  and  simulating  light  infantry  operations  in  a 
combat  model.  The  Army's  CTCs  provide  a  training  environment  in  which  light  forces 
arc  routinely  employed;  however,  light  forces  are  seldom  used  in  a  role  which  maximizes 
their  utility  in  this  type  of  environment.  Furthermore,  US  Army  combat  models  are  also 
limited  in  their  ability  to  model  light  infantry  operations. 

Light  infantry  performance  at  the  NTC  is  difficult  to  measure  quantitatively.  NTC 
battles  typically  focus  on  the  destruction  of  enemy  maneuver  forces  as  opposed  to  other 
elements  of  enemv  combat  power.  Heavy  light  battles  are  a  graphic  manifestation  of 
this  shortcoming.  Commanders  rarely  have  the  opportunity  to  employ  light  forces 
against  enemv  battlefield  operating  s>  stems  other  than  their  heavy  maneuver  forces,  re¬ 
sulting  in  unacceptably  high  losses.  There  are  numerous  factors  which  influence  the 
ability  of  the  light  force  to  accomplish  its  mission.  Some  of  the  factors  are  readily  ob¬ 
tained  from  the  comments  of  the  observers,  while  others  are  so  intermixed  with  the 
performance  of  the  entire  heavy  ,  light  force  as  to  render  them  intangible.  Those  quanti¬ 
fiable  factors  will  be  used  to  perform  the  initial  data  analysis  and  determine  measures 
of  effectiveness.  Chapter  II  discusses  light  infantry  performance  at  the  NTC.  However, 
due  to  limited  ability  of  the  CTCs  to  provide  scenarios  in  which  the  light  force's  combat 
power  mav  be  maximized,  and  limited  data  availability,  further  analysis  via  simulation 
methodologv  mav  provide  insight  into  improving  light  infantry  effectiveness. 
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C.  SCENARIO 

1.  General 

The  general  scenario  portrays  a  requirement  to  commit  friendly  forces  in  rugged, 
open  terrain,  against  a  modern  armored  and  mechanized  opposing  force.  The  friendly 
force  mission  is  to  conduct  a  deliberate  attack  to  seize  objectives  and  destroy  enemy 
forces.  The  friendly  force  is  organized  around  a  fully  modernized  tank  and  mechanized 
infantry  task  force  and  light  infantry  forces.  Tlu  commander's  intent  is  to  insert  the 
light  force  early  to  penetrate  barriers  and  fix  the  enemy  front  line.  The  heavy  forces  will 
exploit  the  penetration  and  attack  deep  into  enemy  territory  as  the  main  effort. 

a.  Phase  I  -  Deployment 

The  first  phase  of  the  model,  deployment  of  forces,  assumes  successful  in¬ 
sertion  of  the  light  forces,  either  to  forward  positions  in  front  of  the  enemy,  or  to  posi* 
tioi  to  the  enemy's  Hank  or  rear.  No  actual  modeling  is  performed;  this  simply  provides 
a  starting  position  from  which  the  light  forces  begin  ground  operations. 

b.  Phase  II  -  Light  Infantry  Operations 

The  second  phase  is  modeled  by  the  light  infantry  attack  simulation.  Dur¬ 
ing  this  phase,  light  infantiy  elements  arc  operating  against  enemy  fixed,  fortified  posi¬ 
tions.  Enemy  positions  and  weapons  systems  are  extracted  from  actual  battlefield 
positions  during  an  NTC  deliberate  attack  mission,  and  several  friendly  courses  of  action 
form  the  basis  of  the  experiment. 

2.  The  Light  Infantry  Attack  Simulation 

The  model  is  a  high  resolution  combat  simulation  which  discretely  represents 
the  infantry  battalion,  rifle  companies,  rifle  platoons,  and  each  Anti-Tank  Guided  Mis¬ 
sile  (ATG.M)  gunner  in  the  platoon.  The  simulation  depicts  unit  movements,  attrition 
to  indirect  fires,  and  target  engagements.  The  simulation  permits  employment  of  light 
forces  in  alternate  e  tactical  situations.  Furthe;  discussion  of  the  model  is  contained  in 
Chapter  Ill. 

3.  Future  Developments 

The  natural  extension  of  this  effort  is  the  development  of  a  complementary 
heavy  force  model  or  analytic  surrogate.  Continued  development  of  scenarios  to  allow 
simultaneous  employment  of  light  and  heavy  forces  in  complementary  force  operations 
would  enable  a  more  complete  analysis  of  the  total  force  effectiveness. 
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D.  PROBLEM  DESCRIPTION 

The  approach  of  this  thesis  is  to  construct  and  analyze,  by  simulation  methodology, 
a  model  to  explore  alternative  light  infantry  tactics  in  a  mid-to-high  intensity  deliberate 
attack  scenario.  The  NTC  heavy;  light  rotation  deliberate  attack  missions  provide  a  data 
source  for  determining  measures  of  effectiveness  and  employment  characteristics. 

This  thesis  is  an  initial  effort  to  simulate  light  force  operations.  It  is  both  timely  and 
relevant;  planning  successful  complementary  operations  pose  a  significant  problem  to 
tactical  units  preparing  to  fight  on  an  integrated  battlefield.  This  research  and  analysis 
may  be  used  to  enhance  the  battle  staff  planning  process  and  tactical  execution,  and  to 
provide  doctrinal  insight  into  methods  to  achieve  results  that  neither  force  could  achieve 
operating  on  its  own. 
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II.  HEAVY/LIGHT  PERFORMANCE  ASSESSMENT 


A.  GENERAL 

This  Chapter  presents  an  assessment  of  heavy/light  training  and  performance  at  the 
NTC.  Data  collected  fiom  numerous  heavy  and  heavy/light  rotations  are  presented  to 
further  defne  the  problem.  The  motivation  for  this  presentation  is  to: 

•  Provide  data  input  to  the  light  infantry  attack  simulation  (discussed  further  in 

Chapter  IV). 

•  Determine  the  measures  of  effectiveness  to  analyze  unit  performance. 

•  Highlight  shortcomings  in  the  ability  of  the  C 1  Cs  to  support  complementary  force 

operations,  instrumentation,  and  performance  evaluations. 

•  Describe  shortcomings  in  heavy ’light  tactics. 

B.  TASK  ORGANIZATION 

1.  The  Light  Infantry  Baualion 

a.  Employment  of  Light  Infantry 

Infantry  units  have  the  unique  quality  of  being  an  all-weather  force  capable 
of  defeating  any  enemy  on  any  terrain.  Infantry  is  ideally  suited  for  close-in  operations 
against  an  enemy  of  equal  mobility,  or  in  terrain  which  degrades  the  mobility  of  mech¬ 
anized  forces  (Ref.  *1).  In  operations  where  armored  forces  predominate,  infantry  can: 

•  Make  initial  penetrations  in  difficult  terrain  for  exploitation  by  armor  and 
mechanized  infantry. 

•  Attack  over  approaches  that  are  not  feasible  for  heavy  forces. 

•  Conduct  rear  area  operations,  capitalizing  on  air  mobility.  (Ref.  2:  p.  41) 

b.  Organization  of  the  Light  Infantry  Battalion 

An  infantry  battalion  consists  of  a  headquarters,  maneuver  units,  combat 
support  (CS),  and  combat  service  support  (CSS)  elements.  The  battalion  is  typically 
augmented  with  additional  CS  and  CSS  assets  based  on  the  mission,  enemy,  terrain, 
troops  and  time  available  (METT-T).  The  maneuver  forces  organic  to  the  infantry' 
battalion  include  three  rifle  companies  and  one  anti-armor  company.  Normal  augmen¬ 
tation  to  the  battalion  includes  a  fire  support  battery  ,  engineers,  air  defense,  and  other 
elements. 
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2.  The  Tank  ami  Mechanized  Infantry  Task  Force 

The  heavy  battalion  task  force  is  organized  by  cross-attaching  tank  and  mech¬ 
anized  infantry  companies  within  the  brigade.  A  battalion  task  force  usually  consists 
of  four  to  five  maneuver  companies,  an  anti-armor  company,  a  headquarters  element, 
and  various  slices  of  CS  and  CSS  assets.  An  example  of  a  mechanized  infantry  task  force 
is  shown  in  Figure  1. 

C.  THE  DELIBERATE  ATTACK  MISSION 

The  deliberate  attack  mission  is  the  most  detailed  and  thoroughly  coordinated  of¬ 
fensive  mission  for  the  battle  staff  planner.  For  the  tactical  unit,  the  deliberate  attack 
is  the  most  difficult  and  challenging  to  execute.  All  elements  of  combat  power  are 
brought  to  bear  on  the  enemy.  The  deliberate  attack  is  defined  as: 

An  attack  planned  and  carefully  coordinated  with  all  concerned  elements  based  on 
thorough  reconnaissance,  evaluation  of  all  available  intelligence  and  relative  combat 
strength,  analysis  of  various  courses  of  action  and  other  factors  alTecting  the  situ¬ 
ation.  It  generally  is  conducted  against  a  well  organized  defense  when  a  hasty  attack 
cannot  be  conducted  or  has  been  conducted  and  failed.  [Ref.  5  :  p.  1-8] 

Deliberate  attacks  are  planned  in  detail,  and  are  characterized  by  timely  intelligence, 
extensive  preparations,  deception,  electronic  warfare,  unconventional  warfare,  and  psy¬ 
chological  operations.  Deep  operations  play  a  significant  role  in  the  deliberate  attack. 
Deep  operations  are  conducted  to  "block  movement  of  [enemy]  reserves,  destroy  his 
command  posts,  neutralize  his  artillery ,  and  prevent  the  escape  of  targeted  elements." 
[Ref.  2:  p.  116]  The  deliberate  attack  is  therefore  selected  as  the  focus  for  the  study  of 
heavy 'light  effectiveness  and  data  collection. 

D.  NTC  DATA  COLLECTION 

1.  The  NTC  Environment 

The  NTC  is  located  in  the  Mojave  Desert  at  Fort  Irwin,  California.  The  NTC 
is  a  vast  expanse  of  widely  varying  desert  terrain  covering  some  640,000  acres.  The 
mountainous  terrain  div  ides  the  maneuver  area  into  three  corridors;  the  northern  corri¬ 
dor  is  used  principally  for  live  fire  training  while  the  central  and  southern  corridors  are 
used  for  force  on  force  maneuver  exercises.  The  training  center  is  depicted  in  Figure  2. 

2.  Mission  of  the  NTC 

The  NTC  has  two  primary  missions.  The  first  mission  is  to  provide  tough,  re¬ 
alistic  combined  arms  and  joint  services  training  in  accordance  with  AirLand  Battle 
doctrine,  for  brigades  and  regiments  in  a  mid-to-high  intensity  environment,  while 
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MECHANIZED  INFANTRY  BATTALION  ARMOR  BATTALION 


2M-2  13M-2  13M-2  14M-1  14M-1  12M901 

4M-3 


M-1  :  Abrams  Main  Battle  Tank  Note:  A  non-modemized  mechanized  infamy 

M-2  :  Cavalry  Fignting  Vahids  company  would  have  two  M-901's  ana 

M-3  :  Infantry  Fighting  Vehide  no  M-2's.  It  would  have  14  M-113  Anroreo 

M-901:  Improved  TOW  Vehide  Personnel  Camera  in  placa  of  the  M-2's. 


Figure  1.  The  Mechanized  Infantry  Task  Force 


retaining  feedback  and  analysis  at  the  battalion/task  force  level.  The  second  mission  is 
to  provide  a  data  source  for  training,  docirine,  and  equipment  improvements.  Training 
exercises  are  "free-play",  allowing  units  to  plan  and  fight  as  they  would  in  combat, 
subject  to  specific  safety  guidelines  and  rules  of  engagement.  Following  each  mission, 
units  receive  immediate  performance  feedback  in  the  form  of  after  action  reviews 
(AARs).  The  AAR  is  a  forum  for  commanders  and  staffs  to  evaluate  their  own 
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Figure  2.  The  National  Training  Center 


performance  and  learn  from  comments  of  outside  observers.  The  AAR  focuses  the 
analysis  on  the  seven  battlefield  operating  systems  (BOS): 

•  Maneuver 

•  Command  and  Control 

•  Fire  Support 

•  Intelligence 


8 


•  Air  Defense 

•  Mobility.  Countermobility,  Survivability 

•  Combat  Service  Support. 

3.  Heavy/ Light  Rotation  Description 

Training  at  the  NIC  is  conducted  on  a  rotational  basis.  There  are  14  rotations 
scheduled  during  each  fiscal  year.  Forces  deploying  to  the  NTC  typically  consist  of  a 
brigade  headquarters,  two  battalions  of  armor  and/or  mechanized  infantry,  an  artillery 
battalion,  and  a  support  battalion.  During  a  heavy.' light  rotation,  a  light  infantry  bat¬ 
talion  from  another  division  is  attached  to  the  heavy  force  brigade  commander  for  the 
entire  rotation. 

The  NTC  has  a  permanently  assigned  opposing  force  (OPFOR)  which  is  or¬ 
ganized  to  replicate  a  Soviet  style  motorized  rifle  regiment,  consisting  of  three  motorized 
rifle  battalions.  OPFOR  equipment  consists  of  U.S.  Army  tracked  and  wheeled  vehicles 
visually  modified  to  more  closely  resemble  threat  equipment.  The  OPFOR  is  proficient 
in  Soviet  tactics,  knows  the  terrain,  and  is  highly  motivated.  There  is  no  change  in  threat 
tactics  when  a  heavy,  light  rotation  is  scheduled  as  compared  to  normal  heavy  rotations. 

A  typical  rotation  is  divided  into  three  phases:  battalion  force-  on-force  training 
(FFT),  battalion  live  fire  training  (LFT),  and  brigade  FFT.  During  a  heavy/light  rota¬ 
tion,  the  FFT  and  LFT  usually  consist  of  both  heavy  and  light  task  forces  operating 
under  brigade  control. 

4.  Data  Collection 

The  NTC's  instrumentation  system  is  the  principal  asset  in  collecting  kill  data 
and  determining  the  source  of  the  engagement.  Play  er  units  are  instrumented  with  the 
Multiple  Integrated  Laser  Engagement  System  (MILES)  down  to  vehicle  level,  enabling 
the  mainframe  subsystems  to  determine  \ehicle  locations  and  status,  resolve  direct  fire 
engagements,  and  to  store  the  data  for  future  analysis.  Instrumentation  of  the  light 
infantry  battalion  is  less  accurate.  Although  each  individual  soldier  wears  the  MILES 
harness,  and  all  light  infantry  weapons  systems  have  a  MILES  firing  device,  position 
locating  devices  track  only  to  platoon  level,  and  casualty  data  are  collected  by 
observer/controllers  moving  with  the  units. 

E.  DATA  SOURCES 

The  Army  Research  Institute-Presidio  of  Monterey  (ARI-POM),  houses  the  CTC 
archive.  The  facility  consists  of  the  digital  data  archive,  a  non-digital  data  archive,  and 
the  Combat  Operations  Research  Facility.  The  archhes  store  all  the  data  collected 
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during  a  rotation  at  the  NTC.  The  data  take  many  forms,  including  digital,  audio-visual, 
written,  and  operations  graphics. 

The  digital  archive  database  provides  the  user  rapid  access  to  unit  organizations, 
equipment  composition,  battle  damage  statistics,  and  battle  replay.  Digital  data  may 
be  accessed  through  the  VAX  computer  network  or  personal  computer.  The  non-digital 
data  archi\  e  stores  written  copies  of  the  unit  take-home  packages,  operations  orders  and 
overlays,  video  tape  copies  of  the  AARs,  and  audio  recordings  of  radio  transmissions. 
The  data  presented  in  this  thesis  represent  a  collection  effort  using  all  of  these  media, 
with  emphasis  on  the  unit  take  home  packages. 

The  unit  take  home  packages  contain  a  written  summary  of  the  mission  and  include 
detailed  comments  from  the  observers  relating  unit  performance  in  each  of  the  seven 
BOS.  Additionally,  the  take  home  package  contains  a  statistical  summary  describing  the 
casualty  assessment  of  both  friendly  and  OPFOR  units,  and  identifies  weapon  systems 
that  caused  the  casualties  for  each  mission  during  the  rotation.  Kills  of  OPFOR  systems 
attributable  to  light  infantry  actions  arc  sometimes  difficult  to  isolate;  the  statistical 
summary  identifies  systems  that  caused  OPFOR  casualties,  but  does  not  necessarily 
identify  the  unit  that  caused  the  casualties.  An  example  of  this  data  isolation  problem 
is  the  TOW  anti-tank  guided  missile:  both  light  infantry  forces  and  mechanized  infantry 
forces  engage  tanks  with  TOWs.  Determining  which  unit  scored  the  hit  under  these 
conditions  involves  double-checking  times  and  locations  of  unit  engagements,  and  veri¬ 
fying  weapons  assigned  to  the  unit. 

F.  DELIBERATE  ATTACK  DATA 

The  initial  data  analysis  elfort  involved  the  collection  of  data  to  compare  the  oper¬ 
ational  elTectix cii'jss  of  heavy  forces  versus  the  effectiveness  of  heavy  forces  operating 
with  an  attached  light  infantry  battalion.  Data  were  collected  for  all  deliberate  attack 
missions  conducted  by  fully  modernized  heavy  forces  operating  without  light  infantry; 
i.e.,  units  equipped  with  the  Ml  Abrams  Main  Battle  Tank  and  the  M2  Bradley  Infantry 
Fighting  Vehicle,  and  all  deliberate  attack  missions  in  which  light  infantry  operated  in 
conjunction  with  heavy  forces.  A  total  of  26  heavy  modernized  deliberate  attack 
missions  were  selected,  with  14  heavy; light  deliberate  attack  missions  available.  How¬ 
ever,  it  must  be  noted  that  due  to  the  small  sample  size  of  fully  modernized  heavy/light 
rotations  (only  six  of  the  14  available),  all  heavy/light  deliberate  attack  missions  were 
considered.  Of  the  26  heavy  deliberate  attack  missions,  seven  were  conducted  by  mech¬ 
anized  task  forces,  13  by  armor  task  forces,  and  six  by  brigade  level  units.  The 
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heavy,  light  deliberate  attacks  included  seven  by  armor  heavy,  five  by  mechanized 
infantry  heavy,  and  two  by  brigade  level  forces. 

G.  MEASURES  OF  EFFECTIVENESS 

1.  General 

There  are  numerous  factors  to  consider  as  measures  of  a  unit's  effectiveness. 
Some  factors  such  as  force  ratios  and  number  of  systems  destroyed  are  easily  quantified, 
while  other  factors  such  as  technology  or  leadership  are  not.  The  MOEs  established  here 
reflect,  to  some  extent,  the  limitations  of  data  availability  and  quantifiability.  The  sta¬ 
tistical  summary  in  the  unit  take  home  packages  is  the  most  reliable  data  source  for 
collection.  There  are  two  aspects  of  operational  planning  which  lead  to  quantifiable 
MOEs:  destruction  of  the  enemy  force  and  protection  of  the  friendly  force.  However, 
inconsistencies  in  the  data  prevent  accurate  analysis  of  all  systems  contributing  to  the 
effectiveness  of  the  unit.  In  particular,  the  data  tend  to  focus  on  the  major  tank  killing 
systems  and  lack  specificity  and  sufficient  detail  to  accurately  depict  infantry  losses. 
Therefore,  the  systems  selected  for  study  include  the  systems  for  which  the  data  is  most 
consistent:  tanks,  infantry  fighting  vehicles,  and  TOWs  for  the  friendly  force;  tanks, 
BMPs,  the  Soviet  equivalent  of  the  M2,  and  BRDMs,  the  Soviet  armored  reconnaissance 
vehicle. 

2.  Destroy  MOE 

The  first  MOE,  termed  the  Destroy  MOE,  is  calculated  as  the  total  number  of 
enemy  systems  killed  during  the  attack  divided  by  the  total  number  of  enemy  systems 
at  the  start  of  the  attack,  for  each  observation  / : 

0?VOR{Tonksl  +  BMPsj+  ZlRZW^destroyed 
Destroy  MOE,  =  0PFOR(7a/iA*,  +  BMPs,  +  BRDMs,) starting  ' 

The  data  collected  for  heavy/light  deliberate  attacks  and  calculation  of  the  Destroy 
MOE  are  shown  in  Table  1.  Modernized  heavy/light  rotations  are  indicated  by  an  as¬ 
terisk  in  the  rotation  column.  The  combined  efforts  of  the  heavy  and  light  forces 
achieved  a  mean  destruction  of  48.5%  of  the  opposing  forces,  with  a  standard  deviation 
of  21.6%.  The  range  of  destruction  values  is  from  16%  to  approximately  84%.  Table 
2  contains  the  data  for  the  heavy  force  deliberate  attack  missions.  For  the  26  heavy 
force  observations,  the  mean  destruction  of  opposing  forces  is  49.5%,  with  a  standard 
deviation  of  23,1%.  Destruction  of  opposing  forces  ranged  from  15.8%  to  approxi- 
rna'ely  96%.  In  terms  of  enemy  destruction,  heavy  forces  achie\ed  a  slightly  higher  level 
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of  destruction  than  did  the  heavy, 'light  forces  operating  in  concert,  contrary  to  the  ex¬ 
pected  result.  Further  discussion  of  this  result  is  presented  in  the  analysis  at  the  con¬ 
clusion  of  this  chapter. 


Table  1.  IIEAVY/LIG1  IT  OPFOR  DESTRUCTION  DATA 


NO. 

TANK 

BMP 

BRDM 

Destroy 

Start 

Lost 

Start 

Lost 

Start 

Lost 

MOE 

1 

10 

wm 

21 

17 

2 

wm 

0.6667 

2 

wm 

D 

14 

8 

2 

l 

0.6500 

3 

mm 

l 

16 

3 

2 

2 

0.2500 

mm 

14 

6 

23 

■■ 

mm 

mm 

0.2683 

5 

12 

8 

10 

3 

mm 

2 

0.5000 

— 

13 

wm 

23 

9 

m 

2 

0.3750 

mm 

19 

ES 

32 

mm 

4 

2 

0.2364 

s 

13 

10 

29 

18 

5 

2 

0.6383 

ra 

28 

22 

63 

39 

4 

2 

0.6632 

10 

19 

mm 

20 

5 

wm 

7 

0.3023 

mm 

13 

9 

29 

15 

5 

2 

0.5532 

12 

16 

13 

33 

28 

mm 

6 

0.8393 

13 

21 

2 

24 

— 

5 

2 

0.1600 

14 

16 

10 

18 

15 

5 

2 

0.6923 

3.  Survival  MOE 

The  second  MOE,  termed  the  Survival  MOE,  is  calculated  as  the  total  number 
of  friendly  systems  surviving  the  attack  divided  by  the  total  number  of  friendly  systems 
at  the  start  of  the  attack,  for  each  observation  / : 

Friendlv(7YmAsi  +  BFVs,  +  TOIF^surviving 

Survival  MOE.  =  -jr-: — -  - 7"nri/ — ,  rrmu  \  >• -  * 

'  Friendly  (Ta/iAs,-  +  BFVst  +  TO  I  restarting 

The  data  collected  for  the  heavy/light  deliberate  attacks  and  calculation  of  the  Survival 
MOE  is  shown  in  Table  3.  The  combined  heavy  and  light  forces  acNev  d  a  mean  sur¬ 
vival  rate  of  32.3%  of  starting  forces,  with  a  standard  deviation  of  only  9.4%.  In  this 
case,  the  range  of  friendly  force  survival  is  from  21%  to  approximately  51%.  Table  4 
contains  the  data  for  the  heavy  force  deliberate  attack  missions.  The  heavy  forces 
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Table  2.  HEAVY  FORCE  OPFOR  DESTRUCTION  DATA 


NO. 

TANK 

BMP 

BRDM 

Destroy 

MOE 

Start 

Lost 

Start 

Lost 

Start 

Lost 

mm 

S 

2 

10 

6 

0 

0 

0.4444 

2 

mm 

ma 

18 

7 

0 

0 

0.3077 

3 

35 

30 

15 

11 

3 

2 

0.8113 

-l 

8 

7 

15 

8 

0 

0 

0.6522 

5 

8 

8 

16 

16 

MM 

0 

0.9600 

mm 

38 

17 

SI 

30 

6 

5 

0.4160 

n 

8 

0 

4m 

16 

6 

2 

2 

0.3846 

14 

■n 

44 

31 

2 

2 

0.7333 

B 

n 

3 

14 

10 

3 

2 

0.7143 

10 

12 

2 

30 

9 

3 

1 

0.2667 

KM 

18 

9 

32 

21 

2 

2 

0.6154 

12 

22 

5 

38 

9 

u 

1 

0.2344 

13 

22 

mm 

49 

14 

2 

0 

0.3425 

14 

13 

10 

35 

25 

3 

3 

0.7451 

15 

39 

5 

26 

19 

5 

3 

0.3857 

16 

21 

7 

38 

9 

2 

0 

0.2623 

17 

■a 

KM 

18 

16 

3 

2 

0.8889 

18 

BB 

IS 

13 

3 

Jm 

0.7037 

19 

13 

mm 

mm 

16 

3 

2 

0.6757 

2<) 

19 

3 

34 

5 

4 

1 

0.1579 

mm 

39 

8 

53 

29 

KM 

1 

0.395S 

v> 

4,  mm 

19 

8 

49 

15 

6 

2 

0.3378 

23 

15 

3 

16 

KM 

10 

2 

0.2195 

24 

18 

KM 

35 

10 

10 

0 

0.2222 

25 

13 

KM 

25 

17 

10 

6 

0.6042 

26 

17 

5 

24 

10 

6 

4 

0.4043 

achieved  a  mean  survival  of  23.3%  of  friendly  forces,  with  a  standard  deviation  of 
13.6%,  and  ranged  from  total  force  losses  to  57%  survival.  In  terms  of  friendly  survival, 
the  combined  hca\y/light  foices  obtained  slightly  higher  protection  than  did  heavy  forces 
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operating  alone.  Note,  however,  that  these  data  do  not  reflect  the  losses  to  light 
infantry;  only  armor  systems  are  considered. 


fable  3.  HEAVY/LIGHT  FRIENDLY  SURVIVAL  DATA 


NO. 

TANK 

BFV/APC 

I  TV;  TOW 

Survival 

MOE 

Start 

Lost 

Start 

Lost 

Start 

Lost 

1 

27  , 

9 

23 

12 

24 

13 

0.5135 

2 

74 

49 

18 

5 

28 

21 

0.3750 

3 

31 

20 

44 

26 

13 

6 

0.4091 

4 

27 

26 

59 

39 

10 

4 

0.2S13 

5 

26 

24 

57 

28 

10 

8 

0.2473 

6 

24 

17 

58 

32 

13 

7 

0.4105 

7 

27 

22 

26 

18 

17 

13 

0.2429 

S 

25 

21 

31 

26 

31 

13 

0.3103 

9 

52 

32 

64 

58 

29 

21 

0.2345 

10 

24 

24 

56 

24 

12 

8 

0.3913 

11 

26 

23 

56 

43 

28 

21 

0.2091 

12 

43 

37 

70 

31 

39 

22 

0.4079 

13 

28 

27 

20 

12 

4 

2 

0.2115 

14 

21 

17 

29 

IS 

25 

19 

0.2800 

11.  ANALYSIS 

As  stated,  only  those  quantifiable  measures  of  effectiveness  were  considered.  Of 
significant  importance  in  the  heavy; light  analysis  is  the  absence  of  loss  figures  for  dis¬ 
mounted  infantry.  This  is  an  unfortunate  consequence  of  the  limitations  of  the  NIC  to 
collect  data  which  adequately  reflect  the  quantity  and  cause  of  infantry  losses,  and  in¬ 
consistencies  in  the  data  that  do  exist. 

There  are  several  factors  that  are  not  considered  when  analyzing  the  data  from  a 
purely  start/loss  perspective.  Comments  from  the  observer/controllers  (OCs),  which 
observe  and  evaluate  each  mission,  provide  valuable  insight  into  the  apparent  inability 
of  the  heavy  and  light  forces  to  achieve  a  measurable  increase  in  effectiveness  on  the 
integrated  battlefield. 

An  equipment  shortcoming  directly  affects  the  ability  of  the  light  force  to  achieve 
kills  against  OPl'OR  armored  equipment  in  the  NTC  environment.  The  primary  light 
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Table  4.  HEAVY  FORCE  FRIENDLY  SURVIVAL  DATA 


NO. 

TANK 

BFV 

ITV 

Survival 

MOE 

Start 

Lost 

Start 

Lost 

Start 

Lost 

wm 

15 

14 

38 

22 

8 

3 

0.3607 

2 

38 

eh 

23 

18 

m 

M 

0.3385 

•> 

39 

26 

19 

14 

3 

0 

0.3443 

WM 

26 

18 

21 

20 

0 

0 

0.1915 

5 

23 

16 

28 

22 

10 

7 

0.2623 

6 

47 

27 

62 

34 

13 

wm 

0.4508 

7 

25 

14 

31 

27 

10 

mm 

0.3182 

8 

■a 

44 

55 

47 

■■ 

mm 

0.1121 

9 

26 

22 

21 

19 

5 

KM 

0.1346 

10 

36 

29 

16 

Hi 

6 

3 

0.3276 

11 

75 

60 

37 

24 

10 

3 

0.2869 

12 

38 

38 

16 

16 

0 

.  0 

0.000 

13 

22 

16 

32 

23 

■n 

KM 

0.3385 

14 

61 

26 

49 

24 

f 

2 

0.5702 

15 

60 

57 

51 

36 

10 

WM 

0.1736 

16 

32 

28 

20 

18 

0 

0 

0.1154 

17 

r> 

«•  — 

16 

25 

15 

wm 

8 

0.3276 

18 

21 

17 

25 

22 

10 

10 

0.1250 

19 

24 

20 

28 

26 

0 

0 

0.1154 

20 

ma 

mm 

41 

34 

8 

HU 

0.2167 

33 

31 

71 

54 

ma 

5 

0.2035 

22 

'  38 

26 

26 

IS 

0 

0 

0.3125 

23 

20 

20 

22 

13 

3 

Dll 

0.2444 

24 

21 

21 

24 

21 

3 

3 

0.0625 

25 

20 

19 

23 

23 

3 

3 

0.0217 

26 

29 

28 

26 

21 

0 

0 

0.1091 

infantr)  anti-tank  system  is  the  Dragon  missile,  a  man  portable,  optically  tracked,  wire 
guided  missile,  designed  to  defeat  most  enemy  armor.  The  Dragon  has  x  MILES 
counterpart;  the  standard  day  tracker  has  an  integrated  MILES  firing  device.  Infantry 
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Dragon  gunners  also  train  to  engage  targets  at  night  using  the  AN  TAS-5  Thermal 
Night  Sight.  However,  there  is  currently  no  night  vision  device  with  integrated  MILES; 
hence,  infantry  units  operating  during  limited  visibility  conditions  are  unable  to  kill 
armored  targets,  which  significantly  reduces  their  ability  to  contribute  to  the  battle  in  a 
mcasurcablc  sense. 

Another  frequent  OC  comment  is  the  susceptibility  of  light  infantry  to  the  effects 
of  indirect  fires.  Once  detected,  artillery  frequently  renders  the  infantry  ineffective  before 
the  dismounted  force  reaches  the  objective.  The  terrain  of  the  N'TC  offers  little  cover 
to  the  effects  of  indirect  fires. 

The  typical  modus  operand i  of  an  NTC  heavy; light  deliberate  attack  is  a  product  of 
the  NTC  training  environment.  Without  targetable  OPFOR  battlefield  operating  sys¬ 
tems  other  than  the  maneuver  forces,  the  friendly  commander  frequently  resorts  to 
tasking  the  light  infantry  battalion  to  attack,  under  cover  of  darkness,  to  seize  an  initial 
foothold  in  the  enemy  defenses,  breach  obstacles,  and  establish  lanes  through  which  the 
heavy  force  will  pass  to  maintain  the  momentum  of  the  attack.  Such  attacks  arc  typi¬ 
cally  frontal,  the  least  desirable  form  of  maneuver  in  the  deliberate  attack.  Not  only 
does  this  method  employ  the  light  force  against  an  enemy  it  is  not  designed  to  defeat, 
given  the  terrain,  it  is  further  complicated  when  combining  forces  not  accustomed  to 
each  other's  capabilities,  limitations,  and  standard  operating  procedures.  Frequent  OC 
comments  indicate  that  the  heavy  light  deliberate  attack  increases  the  overall  complexity 
of  the  operation,  as  suggested  by  operational  problems  ranging  from  land  navigation, 
failure  of  the  light  forte  to  gain  the  initial  foothold,  unrehearsed  recognition  signals, 
friendly  fire  casualties  resulting  from  the  light  force  presence  in  the  objective  area,  and 
loss  of  momentum  at  the  passage  point.  Clauscwitz,  the  oft  cited  military  theoretician, 
might  have  described  this  as  the  'fog  of  war'  [Ref.  6). 

Unquestionably,  the  major  objective  of  the  friendly  force  is  the  destruction  of  the 
enemy's  maneuver  elements.  However,  with  the  introduction  of  light  forces  into  the 
organization, 

...the  legitimacy  of  such  an  approach  comes  into  question.  We  have  proved  over 
and  ever  that  in  a  confrontation  between  light  and  heavy  combat  forces,  in  other 
than  close  terrain,  light  forces  incur  a  significant  disadvantage.  Nonetheless,  be¬ 
cause  of  the  inability  of  our  training  centers  to  provide  a  scenario  that  incorporates 
the  cumulative  impact  of  indirect  attacks  on  combat  support,  CSS  and  command 
and  control  throughout  the  depth  of  the  battlefield,  light  forces  are  generally  re¬ 
quired  to  be  employed  in  a  manner  which  ill  suits  their  utility  in  such  an 
environment.  (Ref.  3:  pp.  31-32] 
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The  opportunity  for  the  light  force  to  attack  enemy  BOS  and  conduct  deep  operations 
does  not  exist.  The  introduction  of  light  forces  provides  the  means  to  attack  the  enemy 
in  depth  while  concentrating  their  efforts  against  enemy  elements  they  are  capable  of 
defeating.  Empl  wed  in  this  context,  the  simultaneity  of  attack  by  heavy  and  light  forces 
poses  a  dilemma  for  the  enemy ,  which  is  a  fundamental  element  of  successful  comple¬ 
mentary  force  operations. 
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III.  LIGHT  INFANTRY  ATTACK  SIMULATION 


A.  PURPOSE 

1.  Mission  Pic  lining 

The  light  infantry  attack  simulation  provides  a  useful  planning  tool  to  prepare 
units  for  operations  in  mid-to-high  intensity  conflict.  As  a  planning  device,  the  simu¬ 
lation  model  allows  the  battle  staff  planner  to  simulate  various  courses  of  action  devel¬ 
oped  in  the  planning  process,  and  to  predict  outcomes.  The  light  infantry  attack  model 
emphasizes  intelligence  and  operations  estimates.  The  intent  of  the  simulation  is  to  en¬ 
able  exploration  of  various  courses  of  action  based  on  the  current  estimate  of  the  enemy 
situation,  assist  in  the  decision  making  process,  and  examine  light  infantry  doctrine  in  a 
mid-to-high  intensity  environment. 

2.  Battle  Analysis 

The  simulation  model  can  also  be  employed  as  a  training  analysis  tool.  The 
CTC  data  archives  provide  the  input  information  so  that  results  of  actual  CTC  battles 
can  be  compared  to  simulated  outcomes.  The  simulation  can  be  designed  to  replicate 
CTC  battles  to  assist  in  evaluating  unit  performance.  Additionally,  as  a  training  device, 
the  user  can  compare  results  of  alternative  courses  of  action  with  those  of  the  actual 
battle  plan. 

B.  MODEL  PROGRAMMING 

MODS1M  11  is  a  general  purpose,  modular  programming  language  which  provides 
highly  portable,  object-oriented  programming  and  discrete  event  simulation  [Ref.  7). 
The  modular  concept  adds  flexibility  in  programming  and  encapsulates  objects  which 
can  then  be  imported  for  use  in  other  programs.  Modules  consist  of  three  types:  defi¬ 
nition,  implementation,  and  a  main  module.  Definition  modules  contain  a  set  of  defi¬ 
nitions  for  export  to  other  modules;  implementation  modules  contain  the  actual  code  for 
executing  the  defined  methods.  A  main  module  is  the  only  required  module,  and  con¬ 
tains  the  routine  of  the  program. 

MODSIM  II  provides  dynamic  allocation  of  objects,  records,  and  arrays.  Objects 
contain  fields  and  methods;  methods  contain  a  sequence  of  instructions  which  manipu¬ 
late  the  object's  \ariable  fields.  ASK  METHODS  are  synchronous  methods,  and  do  not 
elapse  simulation  time  when  executed.  TELL  METHODS  are  asynchronous,  time 
elapsing  sets  of  instructions,  which  when  implemented,  are  placed  on  the  simulation 
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calendar  and  executed  in  time  sequence.  PROCEDURES  are  another  construct  which 
perform  computations  and  other  instructions  in  similar  fashion  as  subroutines  in  other 
programming  languages. 

C.  MODEL  EXECUTION 

1.  Force  Representation 

The  light  infantry  attack  simulation  represents  both  friendly  and  enemy  forces 
in  object  code.  The  friendly  forces  are  hierarchically  organized  from  battalion  down  to 
ATGM  level,  while  the  opposing  forces  are  represented  as  a  series  of  distinct  objects 
arrayed  on  the  battlefield.  Figure  3  depicts  the  friendly  force  organization  in  the  attack 
simulation. 

Friendly  forces  consist  of  a  battalion  headquarters  and  three  rifle  companies, 
each  consisting  of  three  rifle  platoons.  The  rifle  platoon  is  uniquely  defined  in.  two 
components:  the  platoon  headquarters  and  the  elements  of  the  platoon's  firepower  ca¬ 
pability.  The  headquarters  executes  unit  activities,  such  as  movement  or  message  pass¬ 
ing.  The  firepower  capability  (FPC),  also  defined  in  object  code,  executes  individual 
soldier  activities,  such  as  firing.  The  FPC  discretely  represents  the  major  anti-armor 
systems  in  an  infantry  platoon,  while  maintaining  a  numerical  accounting  for  the  sum 
of  all  remaining  elements,  including  leaders,  riflemen,  automatic  riflemen,  grenadiers,  and 
machine  gunners. 

2.  Execution 

Once  compiled,  MODS1M  11  creates  an  executable  file  with  the  same  name  as 
the  main  module.  The  model  is  executed  simply  by  invoking  the  name  of  the  model. 
This  is  another  feature  which  contributes  to  the  exportability  of  MODSIM  programs. 
The  light  infantry  attack  simulation  is  executed  with  the  command  Attack.  A  brief  de¬ 
scription  of  the  flow  of  the  model  follows. 

The  model  begins  and  queries  the  user  to  select  the  tactical  experiment,  which 
is  coordinated  to  a  particular  input  file.  The  choices  include  execution  of  the  baseline 
model,  a  flank  attack  model,  or  a  rear  attack  model.  The  scenarios  are  discussed  in  more 
detail  in  Chapter  IV.  A  second  menu  provides  the  user  the  opportunity  to  conduct  a 
“walk-through''  of  the  model  or  to  replicate  an  input  number  of  iterations.  The  walk¬ 
through  writes  output  comments  to  the  screen  for  the  user  to  observe  as  the  model 
progresses.  A  selection  to  replicate  will  prompt  the  user  to  input  the  number  of  iter¬ 
ations,  run  without  output  to  the  screen,  collect  the  critical  data,  and  write  this 
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calendar  and  executed  in  time  sequence.  PROCEDURES  are  another  construct  which 
perform  computations  and  other  instructions  in  similar  fashion  as  subroutines  in  other 
programming  languages. 

C.  MODEL  EXECUTION 
!.  Force  Representation 

The  light  infantry  attack  simulation  represents  both  friendly  and  enemy  forces 
in  object  code.  The  friendly  forces  are  hierarchically  organized  from  battalion  down  to 
ATGM  level,  while  the  opposing  forces  are  represented  as  a  series  of  distinct  objects 
arrayed  on  the  battlefield.  Figure  3  depicts  the  friendly  force  organization  in  the  attack 
simulation. 

Friendly  forces  consist  of  a  battalion  headquarters  and  three  rifle  companies, 
each  consisting  of  three  rifle  platoons.  The  rifle-  platoon  is  uniquely  defined  in  two 
components:  the  platoon  headquarters  and  the  elements  of  the  platoon's  firepower  ca¬ 
pability.  The  headquarters  executes  unit  activities,  such  as  movement  or  message  pass¬ 
ing.  The  firepower  capability  (FPC),  also  defined  in  object  code,  executes  individual 
soldier  activities,  such  as  firing.  The  FPC  discretely  represents  the  major  anti-armor 
systems  in  an  infantry  platoon,  while  maintaining  a  numerical  accounting  for  the  sum 
of  all  remaining  elements,  including  leaders,  riflemen,  automatic  riflemen,  grenadiers,  and 
machine  gunners. 

2.  Execution 

Once  compiled,  MQDS1V1  II  creates  an  executable  file  with  the  same  name  as 
the  main  module.  The  model  is  executed  simply  by  invoking  the  name  of  the  model. 
This  is  another  feature  which  contributes  to  the  exportability  of  MODS1M  programs. 
The  light  infantty  attack  simulation  is  executed  with  the  command  Attack.  A  brief  de¬ 
scription  of  the  flow  of  the  model  follows. 

The  model  begins  and  queries  the  user  to  select  the  tactical  experiment,  which 
is  coordinated  to  a  particular  input  file.  The  choices  include  execution  of  the  baseline 
model,  a  flank  attack  model,  or  a  rear  attack  model.  The  scenarios  are  discussed  in  more 
detail  in  Chapter  IV.  A  second  menu  provides  the  user  the  opportunity  to  conduct  a 
"walk-through"  of  the  model  or  to  replicate  an  input  number  of  iterations.  The  walk¬ 
through  writes  output  comments  to  the  screen  for  the  user  to  observe  as  the  model 
progresses.  A  selection  to  replicate  will  prompt  the  user  to  input  the  number  of  iter¬ 
ations,  run  without  output  to  the  screen,  collect  the  critical  data,  and  write  this 
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company  completes  the  initial  attack,  the  company  moves  to  an  intermediate  objective 
from  which  to  reengage  targets  which  were  not  destroyed.  The  model  terminates  when 
all  companies  ha\e  completed  the  final  assault  and  either  all  targets  are  destroyed  or  the 
unit  is  out  of  ammunition. 

D.  MODEL  DESIGN 
1.  Model  Components 

The  light  infantry  attack  simulation  consists  of  23  modules:  11  definition,  11 
implementation,  and  one  main  module.  The  simulation  code  is  contained  in  Appendix 
A.  A  brief  description  of  the  principal  components  of  the  model  follows: 

a.  Attack 

Main  module  Attack  sets  the  routine  of  the  program.  The  module  imports 
several  procedures  to  setup  the  background  data  for  the  program.  These  procedures 
include  setting  the  seeds  for  the  random  number  generators,  reading  the  transportation 
and  missile  system  parameters,  modeling  the  enemy  defense,  and  reading  the  data  to 
model  the  unit  operations  plan.  Additionally,  the  main  module  creates  the  battalion  and 
all  subordinate  units,  implements  the  battalion  object's  TELL  METHOD 
ExecuteMission,  and  starts  the  simulation. 

b.  Global s 

The  Globals  definition  and  implementation  modules  include  selected  vari¬ 
ables  which  may  be  seen  throughout  the  program.  These  variables  include  the  random 
number  generators,  and  variables  defining  characteristics  of  the  battlefield,  such  as  visi¬ 
bility  condition,  weapons  status,  and  transportation  data.  The  implementation  module 
sets  the  \alues  of  these  variables  at  run-time,  allocates  the  random  number  generators, 
and  opens  the  output  files. 

c.  Unit 

The  Unit  modules  provide  the  structure  for  each  unit  object  in  the  model. 
Units  consist  of  four  levels  of  unit  objects:  UnitObj,  RiflePlatoonObj,  RiJleCompanyObj, 
and  BattalionObj .  The  generic  UnitObj  defines  fields  and  methods  common  to  all  units, 
and  are  inherited  by  each  of  the  other  specific  units.  The  methods  of  each  of  the  units 
define  events  which  normally  occur  at  unit  level,  such  as  movement  along  a  specified 
route,  occupation  of  firing  positions,  and  target  assignments.  The  battalion  object  has, 
in  addition  to  its  other  fields,  a  trigger  object.  The  trigger  object  provides  a  means  of 
synchronizing  e\ents  in  the  simulation.  An  identification  field  is  attached  to  each  unit; 
companies  are  named  A,  B,  and  C.  Additionally,  within  companies,  for  example, 
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platoons  are  further  identified  as  Al,  A2,  or  A3.  The  use  of  identifiers  is  a  critical  asset 
when  viewing  the  model  in  progress  and  reviewing  output  files. 
d.  Firepower  Capability  ( FPC ) 

The  FPC  modules  are  an  element  of  the  model  architecture  whose  purpose 
is  to  define  methods  focused  at  the  soldier  level.  The  separation  between  platoon  events 
and  events  within  the  FPCObj,  is  a  means  of  encapsulating  events  occurring  at  squad, 
fireteam,  and  individual  soldier  level.  The  FPCObj  performs  the  numerical  accounting 
of  each  subordinate  element  within  a  rifle  platoon's  firepower  capability.  Additionally, 
the  FPC  discretely  allocates  the  platoon's  ATGM  gunners  as  object  variables.  The 
methods  perform  both  accountability  and  message  passing.  The  FPCObj  also  has  an 
identification,  which  corresponds  exactly  with  the  parent  platoon, 
c.  ATGM 

The  ATOM  modules  detail  the  direct  fire  capability  of  the  unit.  The 
ATGMObj  contains  in  its  fields  the  missile  data  read  at  the  start  of  the  program.  The 
methods  detail  the  engagement  sequence  of  an  ATGM  gunner  and  include  preparation 
of  the  round,  target  acquisition,  tracking,  and  assessment  of  target  damage.  Addi¬ 
tionally,  the  ATGM  objects  contain  a  trigger  mechanism,  which  grants  permission  to  the 
gun  to  fire  based  on  current  weapons  status  or  once  the  synchronized  attack  commences. 
Each  ATGM  is  also  given  an  identity.  The  ATGM  identity  consists  of  the  platoon 
(FPC)  to  which  it  belongs,  appended  with  the  number  assigned  to  each  system,  either 
one  or  two.  For  example,  an  ATGM  identity  of  A12  signifies  A  company,  first  platoon, 
second  ATGM  gunner. 

/.  Map  Reconnaissance 

The  MapRecon  modules  contain  a  procedure  to  read  a  user  constructed  data 
file  which  is  built  during  the  planning  process  or  to  reconstruct  a  battle.  Additionally, 
MapRecon  allocates  records  to  store  positional  information,  and  connects  them  in  a 
linked  list  to  form  the  unit  movement  routes.  The  MapRecon  module  also  contains  the 
Distance  procedure.  Distance  takes  as  input  arguments,  two  locations  in  UTM  grid  co¬ 
ordinates  (six-digit,  100  meter  coordinates  with  two  lette.  grid  zone  identifier),  and  de¬ 
termines  the  straight  line  distance  between  the  two  points. 
g.  OPFOR 

The  OPFOR  modules  explicitly  define  each  OPFOR  vehicle  on  the  battle¬ 
field  as  an  Enemy  VehicleObj.  The  ModelEnemy Defense  procedure  reads  data  from  an 
input  file,  creates  each  OPFOR  sxstem,  and  assigns  each  system  the  input  attributes. 
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As  a  planning  tool,  the  user  inputs  data  based  on  available  intelligence;  as  an  analytic 
device,  the  user  inputs  actual  data  gathered  from  the  various  sources. 

It.  Impact 

The  Impact  module  contains  two  procedures:  a  procedure  to  determine  the 
engagement  aspect  angle,  and  a  procedure  to  assess  damage  to  a  target.  The  procedure 
AspcctAngle  employs  a  vector  mathematics  formulation  to  determine  the  angle  between 
the  gun-target  vector  and  the  target  orientation  vector.  The  result  of  the  procedure  call 
is  a  determination  of  where  on  the  target  the  round  impacted  as  either  front,  flank,  or 
rear.  This  information  is  passed  to  the  AssessDumagc  procedure  which  performs  a 
Monte  Carlo  draw  on  a  random  number  generator,  compares  the  sample  to  the  missile 
system's  probability  of  kill  for  that  target  and  impact  point  combination,  and  returns  the 
assessment  of  whether  the  target  is  killed  or  damaged. 

/.  Weapons 

The  Weapons  modules  contain  two  procedures  to  read  the  specific  weapon 
system  characteristics  and  the  probability  of  kill  data.  The  user  supplies  the  data  for  the 
program  to  read  fiom  a  data  file.  The  kill  probability  data  used  in  this  model  are  merely 
approximations  of  actual  data  under  similar  conditions.  The  data  include  an  estimate 
of  the  probability  of  kill  for  a  Dragon  missile  versus  four  different  OPFOR  vehicles  in 
j.ontal,  flank,  and  rear  engagements. 

j.  Artillery 

The  Arty  modules  define  the  procedure  SchedulcOPFORArtillery  which 
computes  the  probability  of  kill  of  the  OPFOR  artillery  against  the  light  forces.  The 
model  employs  a  Confetti  approximation,  assuming  the  light  forces  are  uniformly  dis¬ 
tributed  throughout  a  given  target  area.  The  artillery  play  is  scheduled  at  run-time, 
based  on  the  user's  estimate  of  when  movement  will  be  compromised,  and  upon  exe¬ 
cution  of  the  attack.  The  artillery  model  is  currently  the  only  means  of  causing  attrition 
of  the  friendly  forces. 

k.  MOE 

The  MOE  modules  provide  continuous  running  means  and  variances  on  the 
measure  of  effectiveness  for  destruction  of  enemy  forces.  Upon  termination  of  the  run, 
the  critical  statistical  data  is  written  to  an  output  file.  In  additk  to  maintaining  the 
Destroy  MOE,  the  model  computes  the  mean  mission  time  and  mean  level  of  attrition. 

/.  Menu 

The  Menu  modules  increase  the  utility  of  the  model  by  prompting  the  user 
to  select  the  particular  scenario  to  be  run,  and  then  queuing  the  user  to  select  an  option 


to  replicate,  walk-through  the  model  with  artillery  play,  or  walk-through  the  model 
without  artillery  play.  Note  that  the  selection  to  replicate  always  runs  the  model  with 
scheduled  artillery.  A  selection  to  walk-through  the  model  either  with  or  without  artil¬ 
lery  allows  the  user  to  observe  unit  movements,  occurrence  of  the  artillery  strikes,  and 
results  of  each  engagement.  A  selection  to  replicate  further  prompts  the  user  to  input 
the  number  of  replications,  and  the  model  runs  without  providing  comments  to  the 
screen,  position  such  that  the  platoon  can  engage,  move,  and  engage  again. 

2.  Use  of  Random  Number  Generators 

The  light  infantry  attack  simulation  uses  four  distinct  random  number  genera¬ 
tors.  The  use  of  separate  random  number  generators  ensures  comparability  between 
multiple  runs  of  the  simulation,  and  is  one  of  many  techniques  of  variance  reduction 
[Ref.  8:  p.  47].  Random  number  generators  are  provided  for  sampling  missile  hit  prob¬ 
abilities,  probabilities  of  kill  against  vehicular  targets,  indirect  fire  losses,  and  selection 
of  the  number  of  rounds  per  gun  fired  in  an  artillery  barrage. 

E.  MODEL  CAPABILITIES 

The  light  infantry  attack  model  simulates  unit  movements,  direct  and  indirect  fire 
engagements,  force  attrition,  and  target  assignments.  A  general  description  of  the  algo¬ 
rithms  used  to  implement  these  capabilities  follows. 

1.  Movement 

The  movement  algorithm  is  a  time-elapsing  method  common  to  all  Unit  objects. 
There  are  two  ke>  elements  of  the  MoveTo  method:  identification  of  the  destination,  and 
determination  of  the  movement  time,  which  requires  a  measurement  of  the  distance 
involved. 

a.  Position  Identification 

Positional  information  in  the  light  infantry  attack  simulation  is  stored  in  a 
RECORD  data  structure.  A  record  is  dynamically  allocated,  contains  variable  fields, 
and  differs  from  an  object  in  that  it  has  no  methods  which  operate  on  its  fields.  A  record 
can  contain  a  reference  variable  of  another  record,  thus  facilitating  construction  of 
linked  lists.  Position  records  store  the  doctrinal  name  of  the  position,  such  as  ATK  PSX, 
a  six  digit  center  of  mass  grid  coordinate  (with  two  letter  identifier)  for  the  location,  the 
locations  of  firing  positions,  if  anv,  and  a  reference  variable  which  points  to  the  next 
position  record  along  the  unit's  route.  In  this  way,  units  may  be  "told"  to  move  to  the 
next  position,  with  all  the  required  information  attached. 
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b.  Distance 


Computing  the  distance  between  two  points  given  in  grid  coordinates  is 
subject  to  the  constraint  that  the  two  points  will  lie  in  two  regions  covered  by  adjacent 
UTM  grid  zone  identifiers  (this  includes  diagonally  adjacent  regions).  The  Distance  pro¬ 
cedure,  defined  in  the  MapRccon  module,  first  compares  the  grid  zone  identifiers  and 
then  "normalizes"  the  relationship  between  the  two  points.  The  computation  is  then  an 
application  of  the  Pythagorean  Theorem,  and  the  resulting  distance  is  returned  in  me¬ 
ters.  For  example,  to  find  the  distance  between  NK900150  and  NL030200,  the  algorithm 
first  compares  NK  to  NL  and  identifies  the  points  as  lying  in  horizontally  adjacent  grid 
zones.  The  algorithm  then  normalizes  the  easterly  coordinate  030  (interpreted  as  3.0 
kilometers)  to  1030  so  that  the  subtraction  1030  -  900  yields  a  horizontal  change  in 
distance  of  13.0  kilometers.  The  vertical  change  is  5.0  kilometers,  yielding  a  distance  of 
13,928.4  meters. 

c.  Movement  Time 

On  implementation  of  MovcTo,  the  algorithm  sets  the  field  value  for  the 
movement  start  time  as  the  current  simulation  time.  The  movement  rate,  R,  is  computed 
as 


Rlj-  CFt  M  Rjj , 

where  /=  transportation  t> pe.  j  =  visibility  condition.  MR  is  a  matrix  of  movement 
rates,  and  CF  is  an  array  of  conversion  factors  to  convert  movement  rates  given  in  knots 
or  kilometers  hour  to  meters  sec.  .Movement  rates  are  input  based  on  data  obtained 
from  appropriate  FMs.  For  example,  Table  16-14,  FM  5-34,  gives  the  rate  of  march  of 
infantry  troops,  cross-country,  at  night,  as  1.6  km,  hr  (Ref.  9j.  Movement  time,  T,  is  then 
computed  using  the  standard  formula  T  -  DIR  ,  where  distance,  D,  in  meters,  is  ob¬ 
tained  from  a  call  to  the  distance  procedure.  The  method  then  waits  the  indicated  time 
to  move,  and  then  updates  's  position  to  the  new  position.  In  a  situation  where 

movement  is  interrupted,  as  during  an  artillery  strike,  the  algorithm  computes  the 
amount  of  time  remaining  to  complete  the  move,  adds  an  arbitrary  constant  regroup 
time,  and  waits  the  remaining  time  before  updating  the  unit's  location. 

2.  Direct  Fires 

Direct  fires  in  the  light  infantry’  attack  simulation  model  only  the  major  anti¬ 
armor  systems  organic  to  light  infantry  units.  Only  the  Dragon  anti-tank  guided  missile 
system  is  modeled;  ho\\e\cr,  the  A  TGMObj  is  intended  to  be  generic  to  both  Dragon  and 
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TOW  systems.  Direct  fire  engagements  model  preparation  of  the  missile,  acquisition  of 
the  target  (range  checking),  firing,  tracking  and  damage  ar  essment,  and  taking  the 
launcher  out  of  action.  Each  stage  in  the  engagement  sequence  is  a  method  of  the 
ATGMObj .  The  methods  model  the  engagement  sequence;  determination  of  the  result 
of  the  engagement  is  a  two  step  process  which  involves  computation  of  the  engagement 
aspect  angle  and  damage  assessment. 

a.  Engagement  Aspect  Angle 

The  engagement  aspect  angle  is  determined  by  a  call  to  the  procedure 
Aspect  Angle  contained  in  the  Impact  module.  The  aspect  angle  formula  employed  in  the 
procedure  is  a  result  of  the  following  derivation.  The  engagement  aspect  angle,  a,  de¬ 
fined  as  the  angle  between  the  gun-target  vector  G  and  the  target  orientation  vector  f, 
is  obtained  from  the  formula 


U.  —  _  «*  •  ^  IJ 

IIGII  117*11 

To  determine  the  engagement  aspect  angle,  an  arbitrary  coordinate  system 
is  established  such  that  the  target  location  identifies  the  origin,  and  grid  north  (GX) 
defines  0°.  Define 

'  y  s  gun-target  angle 
and 


0  s  target  orientation  angle, 


and  let 


gi  s  the  horizontal  component  of  G  , 
g2  s  the  vertical  component  of  G  , 

■A 

fj  3  the  horizontal  component  of  T  , 


and 


t2  =  the  vertical  component  of  T  . 
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Figure  4a  depicts  the  angular  relationship  of  each  system.  Figure  4b  depicts  the  com¬ 
ponents  of  the  gun-target  vector. 


(a)  (b) 

Figure  4.  Gun-Target  relationship 


Missile  location  and  target  location  arc  known  and  given  as  UTM  grid  co¬ 
ordinates.  Placing  the  target  at  the  origin,  y  may  be  computed  as 

,  8\ 

y  =  arctan  -z- . 

8  2 

in  the  case  where  g}  <=  0,  y  =  ~  or  -  Note  that  equation  (1)  suggests  computing  the 
magnitude  of  each  of  the  vectors  to  obtain  a.  However,  since  the  dot  product  is  the  sum 
of  the  products  of  the  components  of  the  vectors,  the  numerator  may  be  expressed  as 


G  •  F^g,/,  +g2t2 . 


Furthermore, 


g,  =  ||G||  sin  y 


and 


g2  =  ||(?||  cos  y  . 
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The  components  of  T  follow  similarly,  so  that  (1)  may  be  rewritten  as 


I! G HI! f || sin y  sin e  +  IIGHIlfll cosy  cos 8 
cos  a  - - - — - - .  (2) 

mm 

Factoring  ||G|j||7H,  (2)  reduces  to 

cos  a  =  sin  y  sin  8  +  cos  y  cos  8.  (3) 


Thus,  the  engagement  aspect  angle  a  is  simply 

a  =  arccos  ( sin  y  sin  0  +  cos  y  cos  8).  (4) 


Equation  (4)  is  the  formula  which  appears  in  the  AspectAngle  procedure. 

Once  a  is  determined,  it  is  translated  to  an  impact  area  on  the  target.  As¬ 
suming  all  targets  are  symmetric  about  their  center  of  mass,  the  impact  areas  are  defined 
as 


impact  area 


front,  for  -45°  ^  a  £  45° 

n  „  [45®  <  a  <  135° 

flank,  for 

[225  <  a  <  315 
rear,  for  135°^a^225°. 


Figure  5  depicts  the  impact  areas.  The  impact  area  is  then  passed  to  the  damage  as¬ 
sessment  procedure  to  determine  the  results  of  the  engagement. 
b.  Damage  Assessment 

Damage  assessment  is  determined  by  a  call  to  the  AssessDumagc  procedure 
in  the  Impact  module.  AssessDamage  requires  three  input  arguments:  weapon  type, 
target  type,  and  impact  area.  The  procedure  determines  the  probability  of  kill  for  the 
appropriate  missile  impacting  the  target  in  the  given  area.  A  sample  is  selected  from  a 
random  number  generator  and  compared  to  the  kill  probability.  The  procedure  returns 
a  resulting  kill  or  damage  outcome  for  the  engagement. 

3.  Indirect  Fires 

The  indirect  fire  model  in  the  light  infantry  attack  simulation  provides  the  means 
of  causing  attrition  to  the  light  force.  Assuming  that  the  individual  target  elements  are 
uniformly  distributed  throughout  the  target  area,  and  the  incoming  rounds  impact  uni¬ 
formly  throughout  the  target  area,  and  assuming  no  rounds  land  outside  the  target  area 
and  there  are  no  edge  effects,  let  PK  represent  the  fraction  of  target  elements  killed. 
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Figure  5.  Impact  Area  Designation 


Given  these  assumptions,  the  procedure  SclieduleOPFORArtillery  in  the  Arty  module 
employs  the  confetti  approximation 

PK=(i-e-^y, 

where  2  -  11  is  the  number  of  rounds  fired,  a  is  the  lethal  area  of  one  round,  and  A 

A 

is  the  target  area  [Ref.  10).  For  the  purposes  of  this  model,  the  target  area  is  defined  to 
be  a  rectangular  area  measuring  260  meters  by  1 10  meters,  which  corresponds  to  the  size 
of  the  "IFCAS"  box  used  in  the  NIC  rules  of  engagement  [Ref.  11).  The  parameter  re¬ 
presenting  .the  lethal  area  of  one  round  is  an  approximation  of  the  lethal  area  of  the 
OPFOR  122mm  high  explosive  artillery  round  against  infantry  troops  in  the  open.  Ad¬ 
ditionally,  ScheduhOPFORArtillcry  randomly  selects  an  integer  number  of  rounds  per 
gun,  between  1  and  3,  fired  by  an  OPFOR  battery  of  six  guns.  Under  this  approxi¬ 
mation,  one  scheduled  artillery  barrage  may  result  in  a  random  casualty  assessment 
ranging  from  approximately  22%  to  approximately  45%. 

4.  Attrition 

The  light  infantry  forces  modeled  in  the  simulation  may  be  attritted  by  OPFOR 
artillery  only.  In  its  current  configuration,  the  user  schedules  the  artillery  based  on  an 
assessment  of  the  probable  times  at  which  movement  will  be  compiomised  or  upon 


29 


detection  of  the  attack.  Any  or  all  of  the  infantry'  companies  may  be  scheduled  to 
receive  indirect  fires.  When  the  simulation  time  reaches  the  scheduled  time,  the 
company  object's  Artillcrylnterrupt  method  is  invoked.  This  method  accomplishes  two 
tasks:  first,  it  interrupts  the  unit's  current  activity,  and  second,  it  invokes  the  platoon- 
level  method  Take  Casualties  and  passes  the  loss  percentage. 

The  Artillcrylnterrupt  method  causes  execution  of  ie  unit's  movement  and  en¬ 
gagement  methods  to  halt  prematurely.  A  movement  interrupt  simply  causes  the  unit 
to  elapse  additional  time  while  "regrouping"  before  completing  the  movement.  An  en¬ 
gagement  intcri upt  will  be  passed  down  to  ATGM  level  and  terminate  all  methods  in  the 
engagement  sequence.  In  particular,  if  the  A  TGMObj  is  tracking,  the  missile  will  be  lost; 
otherwise,  the  process  will  wait  the  constant  regroup  time  before  starting  over.  In  ad¬ 
dition  to  early  termination  of  the  unit's  methods,  the  unit  will  be  assessed  casualties. 

Casualties  are  managed  in  the  model  within  the  platoon's  FPCObj.  Invoking 
the  platoon's  TakeCasualties  method  causes  the  FPCObj  to  implement  DecrementFPC. 
The  DecrementFPC  method  computes  the  integer  number  of  casualties  represented  by 
the  input  loss  percentage  and  reduces  its  strength  by  the  required  number.  The  selection 
of  personnel  losses  is  completely  random  based  on  a  sample  obtained  from  a  random 
number  generator. 

5.  Target  Assignments,  Reassignments,  and  Target  Handover. 

a.  Target  Assignments 

Assignment  of  targets  to  companies  is  a  user  provided  input  presumably 
based  on  the  assignment  and  location  of  company  objectives.  The  data  is  read  in  by  the 
MotlelOpcrationsOvci  lay  procedure  in  the  Map  Recon  module,  and  the  targets  are  placed 
on  the  company  target  queue.  During  execution  of  the  simulation,  targets  are  assigned 
to  platoons  upon  arris  al  in  the  assault  position.  After  the  platoons  have  occupied  their 
respective  firing  positions,  the  company  invokes  AssignTargets  which  assigns  targets  to 
platoons  according  to  the  following  heuristic:  start  with  the  most  distant  target;  identify 
the  closest  platoon  to  that  target;  assign  the  target  to  the  platoon;  continue  until  all 
targets  have  been  assigned.  This  heuristic  is  one  of  many  alternative  methods  to  opti¬ 
mize  the  assignment  process. 

b.  Reassignment 

Reassignment  of  targets  occurs  within  the  ReAssign  method  of  the  FPCObj; 
in  other  words,  targets  are  reassigned  within  the  platoon.  A  reassignment  occurs  when 
either  of  two  conditions  occur:  an  ATGM  system  is  out  of  ammunition  and  its  assigned 
target  has  not  been  destroyed,  or  an  ATGM  is  lost  to  artillery.  Furthermore,  should  a 
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condition  occur  such  that  the  platoon  does  not  have  the  assets  to  reassign  the  target  to, 
the  platoon  will  pass  the  target  back  to  the  company  to  handover  to  another  platoon. 
c.  Target  Handover 

The  TargetHandover  method  of  the  RifleCompanyObj  is  called  from  a  sub¬ 
ordinate  which  no  longer  has  the  assets  to  engage  a  target.  A  handover  can  occur  within 
a  company;  no  methodology  is  provided  to  pass  the  target  back  to  the  battalion.  The 
handover  algorithm  first  looks  at  each  platoon  to  identify  a  candidate.  A  candidate 
platoon  is  one  that  has  ATGM  ammunition  available  and  is  not  currently  engaging. 
The  next  check  identifies  a  candidate  which  is  currcnth  in  range  to  engage  the  target  and 
if  one  exists,  immediately  assigns  the  target  to  the  platoon.  If,  on  the  other  hand,  a 
candidate  is  not  in  range,  the  method  then  identifies  the  candidate  closest  to  the  target 
and  tells  the  indicated  platoon  to  move  to  the  appropriate  firing  position  and  engage  the 
target.  If  the  company  no  longer  has  the  assets  to  engage  the  target,  the  target  survives 
and  a  comment  is  written  to  the  output  file. 

F.  MODEL  INPUT 
1.  Scenario  Input 

Scenario  data  within  the  light  infantry  attack  simulation  are  divided  into  two 
functional  areas:  force  composition  and  the  light  force  concept  of  the  operation.  The 
simulation  reads  scenario  input  from  user  developed  data  files,  and  dynamically  allocates 
object  references  at  run-time. 
a .  Forces 

The  model  contains  all  unit  related  data  necessary  to  allocate  the  unit  ob¬ 
jects  and  set  starting  force  strength.  The  light  force  unit  object's  fields  are  set  within  the 
object  s  initialization  method,  while  the  opposing  forces  data  are  input  from  a  data  file. 

(h  Friendly  Forces.  The  light  infantry  battalion  is  hierarchically  organ¬ 
ized  w  ith  three  rifle  companies  of  three  rifle  platoons  each.  Each  rifle  platoon  contains 
an  FPCObj  which  contains  a  numerical  representation  of  each  element  in  the  platoon, 
and  an  ATGMObj  for  each  dragon  gunner  in  the  platoon. 

Current  configuration  of  the  light  infantry  battalion  is  based,  in  part, 
on  the  Modification  Table  of  Organization  and  Equipment  (MTOE)  for  an  Infantry 
Battalion  (Airborne).  This  organization  is  selected  to  facilitate  the  model  architecture 
since  the  ATGM  sections  are  organic  to  rifle  platoons.  The  rifle  platoon's  firepower 
capability  is  managed  b\  the  FPCObj.  Starting  force  strength  is  set  according  to  the 
MTOE  above,  assuming  full  strength  at  the  start  of  the  battle. 
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(2)  Opposing  Forces.  The  OPFOR  data  is  supplied  by  the  user  as  an 
input  file.  A  new  enemy  vehicle  object  is  allocated  for  each  OPFOR  system  appearing 
in  the  data  file,  and  its  fields  are  set  with  the  corresponding  data.  There  is  currently  no 
enemy  vehicle  direct  fire  capability. 

b.  Concept  of  the  Operation 

The  light  force  concept  of  the  operation  is  input  to  allow  the  user  to  ex¬ 
periment  with  different  tactics  and  determine  simulated  outcomes  for  each  approach. 
The  input  file  is  constructed  based  on  the  user's  map  reconnaissance  using  the  "back¬ 
ward  planning  process".  Positional  data  is  input  from  the  objective  to  the  attack  posi¬ 
tion,  and  lists  the  unit  target  assignments.  As  the  data  are  read  in,  the  positions  are 
stored  in  a  linked-list,  and  assigned  to  the  appropriate  company.  Two  positions  are 
uniquely  identified  in  the  data  file:  the  assault  position,  and  an  intermediate  objective. 
Both  of  these  positions  have  an  array  of  platoon  firing  positions,  such  that  once  the 
company  arrives  in  that  position,  the  platoons  deploy  to  their  respective  firing  positions. 
The  intermediate  objective  is  employed  for  the  purpose  of  providing  a  position  such  that 
the  attacker  can  shoot,  move,  and  shoot  again. 

2.  Model  Parameters 

Certain  model  parameters  are  fixed  at  compile-time.  These  include,  for  example, 
the  cross  country  movement  rates  of  dismounted  troops  at  night,  or  the  time  required 
to  prepare  a  Dragon  for  firing.-  Where  available,  the  value  of  the  input  parameter  is 
obtained  from  an  appropriate  field  manual  (FM).  Other  model  parameters  are  input  at 
run-time.  These  parameters  include,  for  example,  ATGM  kill  probabilities  and  weapon 
characteristics.  Whenever  feasible,  parameters  are  read  from  a  data  file  to  provide  the 
user  as  much  flexibility  as  possible. 

G.  MODEL  OUTPUT 

The  model  writes  to  three  output  files:  the  engagement  history  file,  the  attrition  data 
file,  and  the  attack  output  file.  During  a  walk-through,  all  three  files  are  active.  If 
replicating,  only  the  attack  output  file  is  active.  The  engagement  history  file  contains  a 
detailed  listing  of  each  engagement,  b\  s\  stem  identity  and  target  identity,  and  the  result 
of  the  engagement.  Also  included  is  the  re-assignment  and  target  handover  sequence. 
The  attrition  file  records  the  losses  to  each  platoon  from  indirect  fires.  The  attack 
output  file  contains  the  kill  data  and  measure  of  effectiveness  for  destruction  for  the 
simulation  run. 


IV.  SIMULATION  ANALYSIS 


A.  GENERAL 

To  demonstrate  the  utility  of  the  model  as  both  an  analytic  and  planning  tool,  three 
scenarios  are  developed.  The  baseline  model  replicates  an  actual  NTC  deliberate  attack 
mission  during  a  heavy, ’light  rotation;  the  results  of  the  simulation  can  be  compared  to 
the  results  achieved  on  the  battlefield  and  an  analysis  performed  to  highlight  differences. 
The  two  additional  scenarios  demonstrate  the  use  of  the  simulation  as  a  planning  tool 
and  allow  the  user  to  compare  results  of  alternative  tactical  plans  with  those  of  the 
baseline  model.  The  two  alternative  plans  use  the  same  OPFOR  situation  as  the  baseline 
model.  In  general  terms,  the  baseline  model  may  be  characterized  as  a  frontal  attack, 
while  the  alternatives  represent  a  rear  attack  and  a  flank  attack. 

B.  OUTPUT  ANALYSIS 

The  light  infantry  attack  simulation  is  a  terminating  simulation  (Ref.  12:  p.  280).  The 
desired  measure  of  performance  for  the  model  is  defined  as  the  number  of  enemy  vehicles 
destroyed  when  the  friendly  forces  are  no  longer  able  to  engage  targets.  The  simulation 
terminates  and  the  number  of  OPFOR  kills  is  reported  to  the  MOEmean  and 
MOEvariance  procedures  in  the  MOE  modules.  These  procedures  maintain  running 
means  and  variances  over  the  input  number  of  replications.  Let  A'  be  the  random  vari¬ 
able  of  interest  {the  MOE  for  a  single  replication),  then  for  fixed  sample  size  n, 

77,  ,  ,  /  s\n) 

\ields  an  approximate  100(1  -  a)  percent  confidence  interval,  (0  <  a  <  1)  ,  for  the  true 
mean  /i,  where  A*(m)  is  the  sample  mean  and  s2{n)  is  the  sample  variance  (Ref.  12:  p.  288). 
For  the  purposes  of  this  analysis,  sample  size  n  =  500  and  significance  level  a  =  0.05  . 

C.  THE  BASELINE  MODEL 

The  baseline  model  serves  as  a  point  of  departure  for  comparison  of  alternative 
tactical  plans  and  outcomes.  Operational  data  for  the  selected  battle  is  extracted  from 
the  numerous  media  available  at  the  CTC  Archive  at  ARI-POM.  Selection  of  a  battle 
upon  which  to  deselop  the  baseline  model  was  arbitrary;  however,  numerous  battles 
were  screened  to  ensure  conformit)  with  the  typical  modus  opetandi  discussed  in  Chapter 


33 


II,  and  to  select  a  battle  which  produced  favorable  results  in  terms  of  the  measures  of 
effectiveness.  A  brief  description  of  the  selected  battle  follows. 

1.  NTC  neat’)/ Light  Mission  AA89xxxx 

N  I  C  Heavy.  Light  mission  AA89xxxx  is  a  deliberate  attack  mission  of  an 
armored  task  force  with  a  light  infantry  battalion.  The  light  infantry  battalion  con¬ 
ducted  a  night  attack  to  seize  objectives,  orient  fires  towards  the  enemy  to  the  west  and 
assist  the  forward  passage  of  the  armored  task  force.  In  terms  of  destruction  of  the 
OPFOR,  the  attackers  destroyed  66%  of  the  enemy  (Chapter  II,  Table  1,  No.  11). 
However,  the  attackers  also  suffered  80%  casualties  (Chapter  II,  Table  3,  No.  11).  Of 
the  enemy  vehicles  destroyed,  one  is  attributed  to  a  light  force  Dragon.  In  terms  of 
infantry  casualties,  it  must  be  noted  that  OPFOR  direct  and  indirect  fires  attritted  one 
infantry  company  to  live  personnel,  rendered  another  ineffective,  and  produced  light 
casualties  on  the  third.  Finally,  as  the  heavy  task  force  passed  through  the  infantry 
positions,  it  became  decishely  engaged  by  OPFOR  elements  to  the  west  and  north  not 
detected  by  the  light  force.  [Ref.  13) 

a.  Buttle  Replay  with  GNA  TT 11 

GNATT  11  is  the  ARI-POM’s  General-purpose  NTC  Analysis  Training 
Tool.  GNATT  11  provides  a  personal  computer  capability  for  graphical  playback  of  the 
NTC  data  archive.  GNATT  II  programs  read  four  data  files  which  produce  represent¬ 
ations  of  units,  weapon  systems,  engagements,  and  player  positions.  GNATT  11  enables 
the  user  to  portray  the  battlefield  (terrain  is  not  depicted)  with  individual  vehicles 
emplaced  and  identified  according  to  data  collected  by  the  NTC's  instrumentation  sys¬ 
tem  and  position  location  devices.  [Ref.  14) 

The  utility  of  GNATT  II,  in  the  context  of  the  light  infantry  attack  simu¬ 
lation,  is  that  the  user  identifies  the  OPFOR  vehicles  by  type,  and  extracts  the  actual 
enemy  positions  from  an  N  I  C  battle.  This  data  is  entered  into  the  OPFOR  data  file  and 
read  in  by  the  ModclEnemyDefcnse  procedure,  so  that,  the  light  infantry  attack  simu¬ 
lation  better  approximates  the  actual  battlefield  conditions.  The  baseline  model  repres¬ 
ents  the  enem>  situation  as  indicated  by  the  GNATT  II  display  screen  shown  in  Figure 
6  (only  OPFOR  vehicles  shown).  The  remaining  elements  of  the  baseline  model  scenario 
follow  from  extracts  of  the  NTC  unit  take-home  package  and  operations  overlays. 

2.  Scenario  Input 

a.  Scheduling  of  Indirect  Fires 

Indirect  fires  are  one  of  the  leading  causes  of  infantry  attrition  at  the  NTC. 
1  he  light  infuntr)  attack  simulation  provides  a  means  of  reducing  infantry  effectiveness 
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Figure  6.  GNATT  II  Replay  of  AA89xxxx 

by  reducing  their  strength  with  scheduled  artillery  elfects.  As  indicated,  indirect  fires 
rendered  two  ride  companies  ineffective  during  AA89xxxx.  To  ensure  consistency  be¬ 
tween  the  three  modeled  scenarios,  indirect  fires  are  scheduled  against  two  companies 
during  movement  to  the  assault  position,  and  against  the  third  company  while  it  is  in  the 
assault  position  preparing  to  engage  targets. 

In  terms  of  light  force  losses,  the  mean  level  of  light  force  attrition  for  500 
iterations  is  33.9972%.  This  may  be  interpreted  in  terms  of  the  Survival  MOE  as  ap¬ 
proximately  66%;  however,  there  is  insulficient  data  to  compare  with  losses  at  the  NTC. 
A  sample  attrition  output  file  is  contained  in  Appendix  D. 


b.  Forces 


(1)  Opposing  Forces.  The  GNATT  II  display  screen  in  Figure  6  indi¬ 
cates  the  positions  of  OPFOR  vehicles  during  AA89xxxx.  In  particular,  there  are  14 
OPFOR  vehicles  in  this  battle,  consisting  of  11  BMPs,  one  T72,  one  BRDM,  and  one 
ZSU  23-4.  In  addition  to  the  identification  and  location  information,  the  user  also  in¬ 
puts  the  target  orientation.  Target  orientation  is  simply  the  user's  estimate  of  the  prin¬ 
cipal  field  of  view  fc,  each  target.  Appendix  B  contains  the  identity,  location,  and 
orientation  for  each  OPFOR  vehicle  from  AA89xxxx.  The  opposing  forces  scenario  is 
identical  for  each  of  the  baseline  model  and  the  two  alternative  models. 

(2)  Friendly  Force  Concept  of  the  Operation.  The  scenario  input  for 
friendly  forces  is  read  in  by  the  ModclOperationsOvcrlay  procedure  in  the  MapRecon 
module.  The  light  infantry  battalion  represented  in  the  light  infantry  attack  simulation 
starts  tiie  mission  at  full  strength,  consisting  of  three  rifle  companies  of  three  platoons 
each.  Platoon  starting  strength  includes  two  ATGM  gunners  with  two  missiles  each. 
Friendly  force  structure  is  identical  for  all  three  tactical  alternatives.  Movement  routes 
for  the  rifle  companies  arc  input  to  mirror  the  original  operations  overlay  for  mission 
AA89xxxx,  and  objectives  are  assigned  with  corresponding  targets  for  each  objective 
area.  The  objectives  differ  from  the  original  graphics  only  so  that  the  unit  ATGMs  will 
be  within  range  of  the  OPFOR  positions  indicated  in  the  GNATT  II  display.  The 
baseline  model  concept  of  the  operation  is  depicted  in  Figure  7. 

3.  Baseline  Model  Results 

As  indicated  previously,  the  baseline  model  can  be  characterized  as  a  frontal 
attack.  The  light  forces  begin  the  battle  with  18  ATGM  gunners,  or  36  missiles  with 
which  to  engage  the  enemy  vehicles.  In  a  trial  run  o.  the  model  without  OPFOR  artil¬ 
lery  play,  the  light  force  successfully  destroyed  nine  vehicles.  A  sample  engagement 
history  is  contained  at  Appendix  E.  Returning  to  the  Destroy  MOE  developed  in 
Chapter  II, 


^  Total  OPFOR  Destroyed 

Destroy  MOE  =  Total  OPFOR  Starting” ’ 

the  resulting  effectiveness  of  an  undetected,  unaudited  light  force  is  approximately  64%. 
Although  this  level  of  effectiveness  is  unrealistic  given  the  environment,  it  serves  as  a 
reference  point,  within  the  model  architecture,  to  compare  levels  of  effectiveness  under 
less  than  ideal  conditions.  Subsequently,  a  run  of  the  model  with  an  artillery  strike 
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Figure  7.  Baseline  Model  Operations  Overlay 

directed  at  each  company  produced  a  Destroy  MOE  of  approximately  57%,  or  eight 
OPFOR  vehicles  dcstioyed.  Furthermore,  replicating  the  model  through  500  iterations, 
the  resulting  mean  Destroy  MOE  was  58.81%,  with  a  variance  of  0.0105,  so  that  a  95% 
confidence  interval  on  the  mean  destruction  of  OPFOR  in  this  attack  scenario  is 

0.5791  £n<  0.5971. 

Appendix  F  contains  results  of  the  baseline  model,  including  the  statistical  summary  for 
the  replications  and  attack  output  files  for  both  events  with  and  without  artillery. 
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D.  A  REAR  ATTACK  PLAN 


1.  Concept  of  the  Operation 

The  rear  attack  plan  assumes  insertion  of  the  force  to  a  landing  zone  behind 
enemy  lines.  Movement  routes  position  the  friendly  forces  to  the  rear  of  the  enemy  prior 
to  engagement.  Companies  retain  objective  and  target  assignments  similar  to  the 
baseline  model.  The  rear  attack  concept  of  the  operation  is  depicted  in  Figure  8. 

2.  Model  Results 

In  a  trial  run  of  the  model  without  OPFOR  artillery,  the  light  force  successfully 
destroyed  nine  vehicles,  or  a  Destroy  MOE  for  an  unattritted  force  of  64.29%.  A  trial 
run  of  the  model  with  an  artillery  strike  directed  at  each  company  produced  a  Destroy 
MOE  of  approximately  57.14%,  or  eight  OPFOR  vehicles  destroyed.  Replicating  the 
model  through  500  iterations,  the  resulting  mean  Destroy  MOE  is  67.51%,  with  a  1.58% 
variance.  The  resulting  confidence  interval  on  the  mean  destruction  of  OPFOR  in  this 
attack  scenario  is 


0.6647  <  n  <:  0.6867. 

♦ 

Results  of  the  rear  attack  model  are  contained  in  Appendix  G. 

E.  A  FLANK  ATTACK  PLAN 

1.  Concept  of  the  Operation- 

The  flank  attack  plan  assumes  insertion  of  the  force  to  a  landing  zone  to  the 
north  of  the  enemy's  positions.  Movement  routes  position  the  forces  on  the  northern 
flank  of  the  enemy  prior  to  engagement.  The  flank  attack  concept  of  the  operation  is 
depicted  in  Figure  9. 

2.  Model  Results 

In  a  trial  run  of  the  model  without  artillery,  the  light  force  successfully  destroyed 
1 1  vehicles,  a  measure  of  effectiveness  for  an  unattritted  force  of  78.57%.  A  trial  run 
of  the  model  with  artillery  produced  a  Destroy  MOE  of  approximately  50%,  or  seven 
OPFOR  \  eludes  destroyed.  Replicating  the  model  through  500  iterations,  the  resulting 
mean  Destroy  MOE  was  63.30%,  with  a  1.96%  variance,  producing  a  confidence  inter¬ 
val  on  the  mean  destruction  of  OPFOR  in  this  attack  scenario  of 

0.6207  £  n  2  0.6453. 

Results  of  the  flank  attack  model  are  contained  in  Appendix  H. 
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Figure  8.  Rear  Attack  Operations  Overlay 
F.  COMPARISON  OF  RESULTS 

The  results  of  the  simulation  experiment  support  the  tactical  assertion  that  it  is  to 
the  attacker's  advantage  to  approach  the  objective  from  a  direction  the  enemy  is  not 
expecting.  An  advantage  in  this  tactic  is  that  it  exposes  an  enemy  weakness  to  the  ef¬ 
fects  of  friendly  direct  fire  weapon  systems.  In  particular,  it  is  generally  the  case  that 
armored  vehicles  are  less  susceptible  to  weapons  effects  when  struck  from  the  front  as 
opposed  to  the  flank  or  rear.  Typically,  armor  protection  is  increased  on  the  frontal 
slopes  of  these  vehicles,  and  the  target  silhouette,  when  viewed  from  the  front,  is  mini¬ 
mized.  Therefore,  it  is  usually  to  the  attacker's  advantage  to  infiltrate  to  a  position  to 


Figure  9.  Flank  Attack  Operations  Overlay 

the  rear  or  the  Hank  of  the  enemy  to  maximize  the  probability  of  hit  and  probability  of 
kill. 

An  initial  comparison  of  the  results  of  each  scenario  indicates  s  significant  difference 
in  the  expected  measure  of  effectiveness  for  frontal,  flank,  and  rear  attacks.  This  result 
is  not  offered  as  evidence  to  claim  the  superiority  of  one  tactic  over  the  other;  however, 
it  follows  the  intuition  that,  under  similar  conditions,  units  might  be  expected  to  achieve 
more  destructive  effect  on  enemy  forces  while  attacking  from  the  flank  or  rear,  as  op¬ 
posed  to  a  frontal  attack.  Furthermore,  this  re;  ult  tends  to  ve:ify  the  utility  of  the  model 
as  a  planning  and  analytic  tool.  Figure  10  depicts  the  range  of  the  confidence  intervals 
for  each  of  the  scenarios.  This  plot  clearly  indicates  a  difference  between  the  scenarios. 
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However,  Figure  11  depicts  the  probability  density  for  the  sample  results  of  each  sce¬ 
nario  for  500  replications.  Due  to  the  amount  of  variation  in  the  distributions  of  the 
results  of  each  scenario,  further  analysis  to  determine  whether  one  scenario  is  statis¬ 
tically  significantly  different  from  another  will  reinforce  these  general  conclusions. 


BASELINE  FLANK  REAR 


Figure  10.  Confidence  Intervals  for  Each  Scenario 


It  is  possible  to  reduce  the  variance  of  an  output  random  variable  without  disturbing 
its  expected  value,  thus  yielding  greater  precision,  i.e., smaller  confidence  intervals  [Ref. 
12:  p.  349].  The  method  of  common  random  numbers  (CRN),  is  a  variance  reduction 
technique  applied  to  measure  the  relative  performance  of  the  model  under  the  three 
scenarios.  Since  each  scenario  is  run  under  identical  conditions,  and  calls  to  the  random 
number  generators  produce  i\nchronized  streams  of  random  numbers,  it  is  desired  to 
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NORMAL  DENSITY  FUNCTION,  N=500 


Figure  11.  Scenario  Distributions 

estimate  the  difference  between  the  expected  values  of  each  scenario  run,  (,  and  produce 
a  confidence  interval  on  this  result.  The  output  variables,  or  replication  MOEs,  A*,  , 
A'w,  and  XFj ,  where  B,  R ,  and  F  represent  the  baseline,  rear,  and  flank  attack  scenarios 
respectively  on  the  j  th  independent  replication,  are  correlated  random  variables.  By  the 
method  of  common  random  numbers,  letting  Zj-XRI-XBJ  for  j-  1,2,...,«,  then 

_  n 

Z(n)  =  'ZZJn  is  an  unbiased  estimator  of  {  =  E{ X^)-  E{ XBj).  Since  the  Zj 's  are  IID 
random  variables, 
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Var(Z(n))  = 


VarjZj) 

Var(ARj)  +  Var(ABj)  —  2Cov(XRj,XBj) 

- 


so  that  any  positive  correlation  between  A'^.  and  XBj,  has  Cov(A'^,A'^)  >  0.  Consequently, 
variance  of  Z{n)  is  reduced.  [Ref.  12:  p.  351).  Furthermore,  the  form  of  the  confidence 
interval  is 

—  n 

Z{n)±tn_u_xi^lszln, 


where  s2z  is  the  variance  of  the  Z/s  [Ref.  8:  p.  49]. 

The  method  of  common  random  numbers  is  applied  to  each  scenario,  with  results 
shown  in  Table  5.  In  each  case,  0  is  not  contained  in  the  confidence  interval,  so  it  may 
be  concluded  that  there  is  significant  difference  between  results  of  the  three  scenarios. 
Interestingly,  CRN  reduced  the  total  variance  in  the  Rear-Baseline  samples  by  0.0066, 
or  approximately  25.2%,  reduced  the  variance  in  the  Flank-Baseline  samples  by  0.0079, 
or  26.4%,  and  reduced  the  variance  in  the  Rear-Flank  samples  by  0.0084,  or  23.9%. 
Numerous  factors  contribute  to  these  results,  notably  the  specific  input  parameters  for 
probability  of  kill.  However,  model  validation,  and  the  associated  sensitivity  analysis,  is 
beyond  the  scope  of  this  thesis. 


Table  5.  RESULTS  OF  CRN  TEST  OF  DIFFERENCE 


Test 

Mean 

Performance 

Standard 

Deviation 

Confidence  Interval 
(95%) 

Lower  Limit 

Upper  Limit 

A/y  ~  Xbj 
(Rear-Baseline) 

0.0S756 

0.14024 

0.07527 

0.099S5 

Xfj-Xsj 

(Flank-Baseline) 

0.044S4 

0.14878 

0.03181 

0.05788 

A'/y-AV; 

(Rear- Flank) 

0.04271 

0.16417 

0.02833 

0.05711 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

The  purpose  of  the  simulation  study  is  to  produce  a  modeling  tool  to  experiment 
with  and  to  analyze  light  infantry  operations  in  a  mid-to-high  intensity  environment. 
The  NTC's  training  environment  and  data  collection  capacity  provide  background  in¬ 
formation.  The  initial  data  collection  and  analysis  suggest  almost  negligible  light  force 
contribution  to  overall  mission  effectiveness.  There  are  several  factors  which  contribute 
to  light  force  effectiveness  in  this  environment.  The  simulation  model,  then,  provides  a 
tool  to  analyze  both:  "What  results  might  we  have  been  able  to  achieve?",  and  "What 
results  might  we  have  achieved  if  we  had  attacked  this  way?" 

The  results  from  three  different  tactical  experiments  produced  distinct  measures  of 
effectiveness,  as  measured  in  terms  of  OPFOR  destruction.  The  results  follow  intuitive 
lines:  Hank  and  rear  attacks  would  generally  be  expected  to  produce  better  results  than 
a  frontal  attack.  Because  the  model  compares  random  numbers  to  input  parameters, 
obviously  the  more  accurate  the  input  parameters,  the  more  accurately  the  simulation 
results  should  compare  with  expected  battlefield  results.  The  model  can  be  readily 
adapted  to  read  such  data. 

Using  approximations  of  the  effectiveness  of  the  Dragon  missile  system  against 
various  OPFOR  v  chicles,  the  simulation  results  of  the  baseline  model  suggested  that 
light  infantrs  units  operating  at  night  should  be  able  to  achieve  significantly  better  re¬ 
sults  than  are  obtainable  at  the  CTCs.  One  possible  explanation  is  the  lack  of  a  com¬ 
patible  night  firing  MILES  device  for  the  Dragon. 

As  an  initial  modeling  effort,  this  model  represents  a  detailed  simulation  of  the 
events  on  the  battlefield,  from  movement  along  prescribed  routes,  to  assignments  and 
engagements  of  targets  according  to  steps  commonly  used  in  training.  This  model,  more 
than  anything  else,  represents  a  low-cost,  highly  exportable  planning  and  analysis  alter¬ 
native  to  large  scale  combat  models  in  use  today.  Its  modular  development  allows  ad¬ 
aptation  to  other  models,  and  more  importantly,  allows  growth  and  follow-on 
development  to  expand  its  utility. 

B.  RECOMMENDATIONS 

One  of  the  early  assertions  made  in  this  research  is  the  inability  of  our  training 
centers  to  proside  an  ensironment  which  facilitates  emplosing  forces  against  an  enems 
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they  are  capable  of  defeating.  Clearly,  light  infantry  is  an  effective  force  in  an  environ¬ 
ment  such  as  the  NTC;  however,  the  continued  employment  of  light  infantry  against 
enemy  armored  and  mechanized  forces,  in  other  than  close  terrain,  is  doctrinally  unten¬ 
able.  Doctrinal  complementary  force  operations  must  stress  the  notion  of  employing 
light  forces  in  operations  against  enemy  battlefield  operating  systems,  other  than  his 
maneuver  forces,  to  maximize  their  effectiveness  and  create  a  dilemma  for  the  enemy. 

This  model  has  several  limitations,  principally  the  lack  of  OPFOR  direct  fires. 
Continued  development  to  improve  such  shortcomings  will  improve  the  results  of  the 
model  in  general,  and  more  specifically,  as  a  valuable  tool  for  planning  and  analyzing 
complementary  force  operations.  The  scenarios  developed  to  analyze  employment  of 
light  forces  in  this  research  also  consist  entirely  of  operations  in  which  the  light  force  is 
attacking  the  enem>'s  heavy  maneuver  forces.  However,  further  scenario  development 
to  portray  OPFOR  CS  and  CSS  elements  throughout  the  depth  of  the  battlefield  is  en¬ 
tirely  possible  and  may  demonstrate  the  utility  of  the  model  in  exploring  employment 
of  light  forces  against  targets  other  than  heavy  maneuver  forces.  Furthermore,  in  the 
context  of  heavy/light  operations,  the  development  of  a  complementary  heavy  force  at¬ 
tack  simulation  would  greatly  improve  this  model's  utility.  The  results  of  the  light  force 
operations  establish  the  input  parameters  for  the  heavy  model,  so  that  a  more  accurate 
picture  of  heavy 'light  effectiveness  may  be  obtained. 
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APPENDIX  A.  MODSIM  CODE 


A.  ATTACK 


MAIN  MODULE  Attack; 


FROM 

FROM 

FROM 

FROM 

FROM 

FROM 

FROM 

FROM 

FROM 

FROM 


SimMod  IMPORT  StartSimulation,  SimTime,  ResetSimTirae; 

CRTMod  IMPORT  ClearScreen; 

Unit  IMPORT  BattalionObj; 

MapRecon  IMPORT  ModelOperationsOverlay; 

OPFOR  IMPORT  ModelEnemyDefense; 

Arty  IMPORT  ScheduleOPFORArty,  Pk; 

Weapons  IMPORT  ReadMissileData; 

Globals  IMPORT  Setup,  UnitNameType; 

Menu  IMPORT  RunMenul,  numberOfReplications, 

replicating,  walkingThru,  Cleanup; 

MOE  IMPORT  Mean,  MOEmean,  ReportStats, 

meanMissionTime,  percentAttrition, 
meanAttritionForThisRun ,  TotalOPFORlosses; 


VAR 

i,  j  :  INTEGER; 

LightFighters  :  BattalionObj; 

BEGIN 

ClearScreen; 

RunMenul; 

Setup; 

ReadMissileData; 

FOR  i  :  =  0  TO  numberOfReplications  -  1 
meanAttritionForThisRun  :=  0.0; 

ModelEnemyDefense; 

ModelOperationsOverlay; 

ScheduleOPFORArty; 

ResetSimTime(0, 0); 

NEW( LightF ighters ) ; 

IF  walkingThru 

OUTPUTiThe  battalion  is  executing  the  mission."); 

END  IF; 

TELL  LightFighters  TO  ExecuteMission; 

StartSiraulation; 

M0Emean( i ,  FL0AT( TotalOPFORlosses ) ); 

meanMissionTime  :=  Mean(i,  meanMissionTime,  SimTime( )/3600.  0); 
FOR  j  :=  0  TO  2 

meanAttritionForThisRun  :=  Mean(j,  meanAttritionForThisRun, 

Pk[VAL( UnitNameType, j)] ); 

END  FOR; 


46 


percentAttrition  :=  Mean(i,  percent Attrition, 

meanAttritionForThisRun); 


DISPOSE(LightFighters); 

DISPOSE(Pk); 

CleanUp; 

IF  replicating 

OUTPUT("Run  number  ",i+l,"  complete."); 

END  IF; 

END  FOR; 

ReportStats; 

OUTPUTC "MISSION  ACCOMPLISHED"); 

IF  walkineThru 

OUTPUTC  Ended  normally  at:"); 

OUTPUTC "H  +  ",  SimTime( )/3600. 0,"  hrs."); 

OUTPUT; 

END  IF; 

0UTPUT("Look  in  file  attack. out  for  results  of  the  battle."); 
END  MODULE. 
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B.  GLOBALS 


DEFINITION  MODULE  Globals; 

FROM  IOMod  IMPORT  StreamObj; 

FROM  RandMod  IMPORT  RandomObj; 

TYPE 

UnitNameType  =  (A,  B,  C,  D); 

WeaponsStatusType  =  (HOLD,  TIGHT,  FREE); 

TargetStatusType  =  (missed,  damaged,  killed); 

TransType  =  (Foot,  Truck,  AirAssault); 

VisCondType  =  (Day,  Night);  (*  Visibility  Condition  *) 

MovementRateList  =  ARRAY  INTEGER,  INTEGER  OF  REAL; 

(*  ARRAY  TransType,  VisCondType  OF  REAL;  *) 

ConversionFactorList  =  ARRAY  TransType  OF  REAL; 

(*  to  convert  movement  rates  to  m/sec  *) 


PROCEDURE  Setup; 

PROCEDURE  ReadTransportationData; 


OutputFile, 
Er.gagamentHistory , 
AttritionFile 
MovementRate 
CF 

WeaponsStatus 
RegroupTime 
VisCond 
BDA,  • 

HitOrMiss , 

RandomCasualty, 

RoundGenerator 


StreamObj; 

MovementRateList; 

ConversionFactorList; 

WeaponsStatusType; 

REAL; 

VisCondType; 


RandomObj; 


END  MODULE. 
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IMPLEMENTATION  MODULE  Globals; 

FROM  IOMod  IMPORT  StreamObj ,  FileUseType( Input,  Output); 

FROM  RandMod  IMPORT  FetchSeed; 

FROM  Debug  IMPORT  TraceStream; 

PROCEDURE  Setup; 

BEGIN 

WeaponsStatus  :=  HOLD; 

VisCond  :=  Night; 

RegroupTime  :=  150.0;  (*  2  and  a  half  minutes  to  regroup  *) 
NEV(OutputFile); 

ASK  OutputFile  TO  Open( "attack. out" ,  Output); 
NEW(EngagementHistory); 

ASK  EngagementHistory  TO  Open( "engage. hst" ,  Output); 
NEW(AttritionFile); 

ASK  AttritionFile  TO  Open("attrit. out" ,  Output); 

NEW(BDA); 

ASK  BDA  TO  SetSeed(FetchSeed(l)); 

NEW(HitOrMiss); 

ASK  HitOrMiss  TO  SetSeed(FetchSeed(2)); 

NEW(RandomCasualty); 

ASK  RandomCasualty  TO  SetSeed(FetchSeed(3)); 

NEW( RoundGenerator ) ; 

ASK  RoundGenerator  TO  SetSeed(FetchSeed(4)); 
NEW(TraceStream) ; 

ASK  TraceStream  TO  0pen( "trace. out",  Output); 

ASK  TraceStream  TO  TraceOff;  s 

ReadTransportationData;  * 

END  PROCEDURE;  (*  Setup  *) 


(* 


*) 


PROCEDURE  ReadTransportationData; 

VAR 

i  :  INTEGER; 

TransportationDataFile  :  StreamObj; 
nilentry  :  STRING; 

BEGIN 
i  :=  0; 

NEW(TransportationDataFile); 

ASK  TransportationDataFile  TO  Open("trans. dat",  Input); 
NEW(MovementRate,  ORD(Foot). . ORD(AirAssault) ,  ORD(Day). . ORD(Night)); 
NEW(CF,  Foot. .  AirAssault); 

ASK  TransportationDataFile  TO  ReadLine(nilentry); 

WHILE  NOT  ASK  TransportationDataFile  eof 

ASK  TransportationDataFile  TO  ReadString(nilentry); 

ASK  TransportationDataFile  TO 

ReadReal(MovementRate[ i,i] ); 

ASK  TransportationDataFile  TO 

ReadReal(MoveraentRate[ i,i+l] ); 

ASK  TransportationDataFile  TO 

ReadReal(CF[  VAL(TransType,i)] ); 

INC(i); 
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END  WHILE; 

ASK  TransportationDataFile  TO  Close; 
DISPOSE(TransportationDataFile); 

END  PROCEDURE;  (*  ReadTransportationData  *) 


END  MODULE. 


C.  UNIT 


DEFINITION  MODULE  Unit; 

FROM  SimMod  IMPORT  TriggerObj; 

FROM  GrpMod  IMPORT  StackObj; 

FROM  MapRecon  IMPORT  PositionRecordType; 

FROM  OPFOR  IMPORT  EnemyVehicleObj; 

FROM  Globals  IMPORT  WeaponsStatusType,  TransType,  UnitNameType; 

TYPE 

UnitObj  =  OBJECT  (*  generic  unit  object  *) 
myHQ  :  UnitObj; 

identity  :  STRING; 

location  :  PositionRecordType; 

myFirePower  :  ANYOBJ; 

moving, 
set, 

outOf ATGMammo , 
engaging, 

engagementComp lete , 
finalAssault  :  BOOLEAN; 

mvtStartTime, 

movementTime  :  REAL; 

ASK  METHOD  UpdateStatus; 

ASK  METHOD  SetLocation( IN  position  :  PositionRecordType); 
TELL  METHOD  TargetHandoverC IN  target  :  EnemyVehicleObj; 

IN  firingPosition  :  STRING); 

TELL  METHOD  MoveTo  (IN  position  :  PositionRecordType; 

IN  method  :  TransType); 

END  OBJECT; 

Rif lePlatoonObj  =  OBJECT  (UnitObj) 

ASK  METHOD  PltInit(IN  HQ  :  UnitObj; 

IN  id  :  STRING); 

ASK  METHOD  TakeCasualties( IN  lossPercentage:  REAL); 

TELL  METHOD  OccupyFiringPosition( IN  firingPosition  :  STRING); 
ASK  METHOD  PrepareToEngage( IN  pltTargetList  :  StackObj); 
TELL  METHOD  Engage; 

TELL  METHOD  InterruptEngage; 

TELL  METHOD  FinalAssault; 

END  OBJECT; 

PlatoonList  =  ARRAY  INTEGER  OF  Rif lePlatoonObj; 

RifleCompanyObj  =  OB JECT( UnitObj) 
unitName  :  UnitNameType; 

platoon  :  PlatoonList; 

targetList  :  StackObj; 

alreadyFired  :  BOOLEAN; 

movementComplete  :  TriggerObj; 

ASK  METHOD  CompanyInit( IN  HQ  :  UnitObj; 
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IN  Name  :  UnitNameType); 

TELL  METHOD  ExecuteMovementPlan; 

TELL  METHOD  Artillery Interrupt(IN  casualtyAssessment  :  REAL); 
TELL  METHOD  AssignTargets; 

TELL  METHOD  Hold(IN  target  :  EnemyVehicleObj; 

IN  firingPosition  :  STRING  ); 

TELL  METHOD  Attack; 

TELL  METHOD  FinalAssault; 

OVERRIDE 

TELL  METHOD  TargetHandover(IN  target  :  EnemyVehicleObj; 

IN  firingPosition  :  STRING); 

ASK  METHOD  UpdateStatus; 

END  OBJECT; 

CompanyList  =  ARRAY  UnitNameType  OF  Rif leCompanyObj; 

BattalionObj  =  OBJECT(UnitObj) 
company  :  CompanyList; 

execute  :  TriggerObj; 

ASK  METHOD  Objlnit; 

TELL  METHOD  ExecuteMission; 

OVERRIDE 

ASK  METHOD  UpdateStatus; 

END  OBJECT; 

VAR 

i  :  INTEGER; 

name  :  UnitNameType; 

firstTimeSet  :  BOOLEAN; 

END  MODULE. 


1 
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IMPLEMENTATION  MODULE  Unit; 


FROM  SimMod 
FROM  UtilMod 
FROM  CRTMod 
FROM  GrpMod 
FROM  MathMod 
FROM  FPC 
FROM  OPFOR 
FROM  Arty 
FROM  Menu 
FROM  Globals 


FROM  MapRecon 


IMPORT  SimTime,  TriggerObj,  Interrupt; 

IMPORT  Delay,  MicroDelay; 

IMPORT  ClearScreen; 

IMPORT  StackObj; 

IMPORT  CEIL; 

IMPORT  FPCObj; 

IMPORT  EnemyVehicleObj; 

IMPORT  Pk,  ImpactTimeA,  ItnpactTimeB,  IrapactTimeC; 
IMPORT  walkingThru,  playingArty; 

IMPORT  ALL  TransType,  VisCond,  MovementRate,  CF, 

ALL  UnitNameType,  RegroupTime,  OutputFile, 
EngagementHistory ,  WeaponsStatus , 

ALL  WeaponsStatusType; 

IMPORT  Distance,  PositionRecordType,  ALL  SymbolType, 
UnitTargetList ,  UnitRoute; 


Vri'n'nVVn'rVfVriWn'n'.-iVi'n'n'nWriWr.WfVfsWnWr.'nWr.'o'nVVfVn'n'n'n'nWnVjWfiViHnVVnViWrVn’nWfiVVnWoVi'n'f  iV) 


OBJECT  UnitObj; 

( *  iV»V>WriV*iVVfVn1r*Vn‘fiV>VVfiVi'n'nViV»W(>,oWrvV>'f*>V5Wo’cVf>ViV>VA»V>V>WMVVif>V*A»ViViViV>VlVAiV>'cV«VAAiV>'MV  'it') 


ASK  METHOD  SetLocationC IN  position  :  PositionRecordType); 

VAR 

fpc  :  FPCObj; 

BEGIN 

fpc  :=  myFirePower; 
location  :=  CL0NE( position); 

ASK  fpc  TO  SetLocationC location,  coordinate); 

END  METHOD;  (*  SetLocation  *) 

C* . - . : . - . *) 


ASK  METHOD  UpdateStatus; 

VAR 

fpc  :  FPCObj; 

BEGIN 

fpc  : =  myFirePower; 

IF  NOT  finalAssault 
set  :  =  ASK  fpc  ready; 

engagamentComplete  :=  ASK  fpc  firingGomplete; 
IF  enJgagementComplete  OR  set 
ASK  myHQ  TO  UpdateStatus; 

END  IF; 

END  IF; 

engaging  :  =  ASK  fpc  engaging; 
outOfATGMammo  :=  ASK  fpc  outOfATGMammo; 

END  METHOD;  (*  Platoon  UpdateStatus  *) 


C* 


*) 


TELL  METHOD  TargetHandoverC IN  target  :  EnemyVehicleObj; 

IN  firingPosition  :  STRING); 


BEGIN 


TELL  myHQ  TO  TargetHandover( target,  firingPosition); 
END  METHOD; 


(* 


*) 


TELL  METHOD  MoveTo  (IN  position  :  PositionRecordType; 

IN  method  :  TransType); 

VAR 

distance,  mvtRate  :  REAL; 
remMvtTime  :  REAL; 


BEGIN 

moving  :=  TRUE; 

mvtStartTime  :=  SimTime(); 

distance  :=  Distanced  location. coordinate,  position. coordinate); 
mvtRate  :=  CF[ method]  *  MovementRate[  ORD(method) ,ORD(VisCond)] ; 

movementTime  :  =  distance/mvtRate; 

WAIT  DURATION  movementTime 
DISPOSE( location); 
location  :=  position; 

moving  :=  FALSE; 

ON  INTERRUPT  (*  determine  remaining  movement  time  *) 
remMvtTime  :=  movementTime  -  (SimTime()  -  mvtStartTime); 

WAIT  DURATION  RegroupTime  +  remMvtTime 
DISP0SE( location); 
location  :=  position; 
moving  :  =  FALSE; 

END  WAIT; 

END  WAIT; 

END  METHOD;  (*  MoveTo  *) 


END  OBJECT;  (*  UnitObj  *) 


'  it  ititititititititititititititititititititititititititititititititititititititititititititititititititititititititititititititit 


OBJECT  Rif lePlatoonObj; 

(Vf  itititititititititititititititititititititit 


it  it  it  i;  it  it  it  it  it  it ' 


1  Vf  it  it  it  it  it  it  it  it  it  it  it ' 


itititititititititititititititit 


it) 

*) 


ASK  METHOD  PltInit(lN  HQ  :  UnitObj; 

IN  id  :  STRING); 

VAR 

fpc  :  FPCObj; 

BEGIN 

myHQ  :  =  HQ; 

identity  :=  id; 

location  :=  CL0NE(ASK  myHQ  location); 

NEW(fpc); 

ASK  fpc  TO  FPCInit(SELF); 
myFirePower  :  =  fpc; 

END  METHOD;  (*  Pltlnit  *) 


* 


« 


1 


(* 


*) 


ASK  METHOD  TakeCasualties(IN  lossPercentage  :  REAL); 
VAR 

fpc  :  FPCObj; 
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BEGIN 

fpc  :=  myFirePower; 

ASK  fpc  TO  DecrementFPC( lossPercentage); 
END  METHOD;  (*  TakeCasualties  *) 


(* 


*) 


TELL  METHOD  OccupyFiringPosition( IN  firingPosition  :  STRING); 

VAR 

fpc  :  FPCObj; 
mvtTime  :  REAL; 

BEGIN 

engaging  :=  TRUE; 
fpc  :  =  myFirePower; 

IF  location. coordinate  =  firingPosition 
mvtTime  :  =  0.  0; 

ELSE 

mvtTime  :==  Distance( location. coordinate,  firingPosition)  / 

(CF(Foot)  *  MovementRate[  ORD(Foot) ,  ORD(VisCond)] ); 

END  IF; 

WAIT  DURATION  mvtTime 

location. coordinate  :=  firingPosition; 

END  WAIT; 

ASK  fpc  TO  SetLocation( firingPosition); 

END  METHOD;  (*  OccupyFiringPosition  *) 


(* 


*) 


ASK  METHOD  PrepareToEngage( IN  pltTargetList  :  StackObj); 
VAR 

fpc  :  FPCObj; 

BEGIN 

engaging  :=  TRUE; 

fpc  :=  myFirePower; 

TELL  fpc  TO  PrepareToFire(pltTargetList); 

END  METHOD;  (*  PrepareToEngage  *) 


(* 


*) 


TELL  METHOD  Engage; 

VAR 

fpc  :  FPCObj; 

BEGIN 

fpc  : “  myFirePower; 

TELL  fpc  TO  Fire; 

END  METHOD;  (*  Engage  *) 


(* 


*) 


TELL  METHOD  InterruptEngage; 
VAR 

fpc  :  FPCObj; 
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BEGIN 

fpc  :  -  myFirePower; 

TELL  fpc  TO  InterruptFire; 

END  METHOD;  (*  InterruptEngage  *) 


r* 


TELL  METHOD  FinalAssault; 

VAR 

fpc  :  FPCObj; 

BEGIN 

fpc  :=  myFirePower; 
finalAssault  :=  TRUE; 

TELL  fpc  TO  FinalAssault; 

END  METHOD;  (*  FinalAssault  *) 


END  OBJECT; 


(*  Rif lePlatoonObj  *) 


( Vf  ******VnVVf**V!*****V!Vc*****Vf*****Vf**VtVfVt**************VfVf*Vf*****Vf***  it') 

OBJECT  Rif leCompanyObj; 

( *  *V»V***Vf*Vf*Vf*Vf*VtVt*5,f*Vf*>,'f*i'fi'c***Vf.'r****Vr*Vc*Vt**V{Vf**********Vt**Vf.WtV»V*'i,f  it ) 


ASK  METHOD  CompanyInit( IN  HQ 

IN  Name 
VAR 

pit  :  RiflePlatoonObj; 
pltlD  :  STRING; 


UnitObj; 

UnitNameType); 


BEGIN 
CASE  Name 
WHEN  A  :  pltlD 
WHEN  B  :  pltlD 
WHEN  C  :  pltlD 
END  CASE; 
unitName 
myHQ 
location 
alreadyFired 
targetList 

NEW(movementComplete); 
NEW(platoon,  1.  .3); 

FOR  i  :=  1  TO  3 
NEW(plt); 

REPLACE( pltlD ,2,2, INTTOSTR( i) ) ; 
ASK  pit  TO  PltInit(SELF,pltID); 
platoonf  i]  :  =  pit; 

END  FOR; 

END  METHOD;  (*  Companylnit  *) 


=  "AO"; 
=  "BO"; 
=  "CO"; 


=  Name; 

=  HQ; 

=  UnitRoute[ unitName] ; 

=  FALSr-, 

=  UnitTargetList] unitName! ; 
(*  trigger  object  *) 


TELL  METHOD  ExecuteMovementPlan; 

BEGIN 

WHILE  ORD( location. symbol)  <  ORD(ASLTPSN) 


*) 
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IF  walkingThru 

OUTPUT( "Company  ",unitName,"  currently  in  ",  location. symbol); 
MicroDelay( 500000); 

END  IF; 

WAIT  FOR  SELF  TO  MoveTo( location. nextPosition,  Foot) 

END  WAIT; 

END  WHILE; 

FOR  i  :=  1  TO  3 

ASK  platoon[ i]  TO  SetLocation( location); 

WAIT  FOR  platoon[ i]  TO 

OccupyFir ingPos it ion( location.  firingPositions[  i] ) 

END  WAIT; 

END  FOR; 

IF  walkingThru 

0UTPUT( "Company  ",unitName,"  is  in  the  ",  location. symbol); 

END  IF; 

AssignTargets; 

END  METHOD;  (*  ExecuceMovementPlan  *) 


(* 


*) 


TELL  METHOD  AssignTargets; 

VAR 

numTgtsInPltList, 
closestPlt, 
nextClosestPlt, 
farthestPlt , 
j,  k,  numln, 
shortestDistance, 
farthestDistance  : 

distToFarthest, 
distOut  : 

farthestTarget,  target  : 

chosen  : 

distance  : 

PltTargetList  : 

BEGIN 

NEW(PltTargetList,  1. . 3); 

NEW( PltTargetList! 1] ); 

NEW(PltTargetList( 2] ); 

NEW( PltTargetList! 3] ); 

NEW( chosen,  1.  .3); 

NEW(distance,  1..3); 

numln  :=  ASK  targetList  numberln; 

numTgtsInPltList  :=  CEIL(FL0AT(numIn)/3.  0); 

WHILE  ASK  targetList  numberln  >  0 
numln  :=  ASK  targetList  numberln; 
target  :=  ASK  targetList  First(); 

distToFarthest  :=  Distance( location,  coordinate,  ASK  target 

location); 

farthestTarget  :=  target; 

(*  find  the  target  farthest  away  ...  *) 

IF  numln  >  1 


INTEGER; 

REAL; 

EnemyVenicleObj; 

ARRAY  INTEGER  OF  INTEGER; 
ARRAY  INTEGER  OF  INTEGER; 
ARRAY  INTEGER  OF  StackObj; 
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FOR  k  :=  1  TO  (numln  -  1) 

target  :=  ASK  targetList  Next( target); 

distOut  :=  Distance( location. coordinate, ASK  target  location); 

IF  distOut  >  distToFarthest 
f arthestTarget  :  =  target; 
distToFarthest  :=  pistOut; 

END  IF; 

END  FOR; 

END  IF; 

(*  . . .  and  assign  it  to  the  closest  platoon.  *) 

FOR  j  :=  1  TO  3 
chosen[  j]  :=  j; 

distance[ j]  :=  ROUND(Distance(ASK  platoon[j] 

location. coordinate.  ASK  farthestTarget 

location)); 

END  FOR; 

shortestDistance  :=  MINOF(distance[ 1] ,distance[2] , distance!  3]  ); 
farthestDistance  :=  MAX0F( distance} 1] .distance! 2] .distance} 3] ); 

IF  shortestDistance  =  distance! 1] 
closestPlt  :=  1; 
chosen(  1]  :=  100; 

ELSIF  shortestDistance  =  distance! 2] 
closestPlt  :=  2; 
chosen( 2]  :  =  100; 

ELSE 

closestPlt  : =  3; 
chosen}  3]  :=  100; 

END  IF; 

IF  farthestDistance  =  distance! 1] 
f'rthestPlt  : =  1 ; 
chosen!  1]  :=  100; 

ELSIF  farthestDistanc ~  distance!  2] 
farthestPlt  :=  2; 
chosen( 2) .  : =  100; 

ELSE 

farthestPlt  :=  3; 
chosen(  3]  :=  100; 

END  IF; 

nextClosestPlt  :=  MIN0F(chosen(  1] ,chosen[2]  ,chosen(3] ); 

IF  ASK  PltTargetList( closestPlt]  numberln  <  numTgtsInPltList 
ASK  PltTargetListl closestPlt]  TO  Add( farthestTarget); 

IF  walkingThru 

0UTPUT( "platoon  ".closestPlt,"  gets  tgt  ",ASK  farthestTarget 
idNumber); 

END  IF; 

ELSIF  ASK  PltTargetListf nextClosestPlt]  numberln  <  numTgtsInPltList 
ASK  PltTargetListl  nextClosestPlt]  TO  Add(  farthestTarget]); 

IF  walkingThru 

0UTPUV( "platoon  ".nextClosestPlt,"  gets  tgt  ",ASK 

farthestTarget  idNumber); 

END  IF; 

ELSE 

ASK  PltTargetListf farthestPlt]  TO  Add( farthestTarget); 

IF  walkingThru 
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OUTPUT( "platoon  " .farthestPlt,"  gets  tgt  ",ASK 

farthestTarget  idNumber); 

END  IF; 

END  IF; 

ASK  targetList  TO  RemoveThisC farthestTarget); 

END  WHILE; 

IF  walkingThru 
Delay(3); 

ClearScreen; 

END  IF; 

FOR  i  :=  1  TO  3 

ASK  platoonfi]  TO  PrepareToEngage(PltTargetList[  i] ); 

END  FOR; 

DISP0SE( chosen); 

DISP0SE( distance); 

END  METHOD;  (*  A«signTargets  *) 


(* 


*) 


TELL  METHOD  Hold(IN  target  :  EnemyVehicleObj; 

IN  firingPosition  :  STRING); 


BEGIN 

IF  NOT  alreadyFired 
WAIT  FOR  movementComplete  TO  Fire 
alreadyFired  :=  TRUE; 

WAIT  DURATION  RegroupTime 
TargctHatidover( target , firingPosition) ; 
END  WAIT; 

END  WAIT; 

ELSE 

WAIT  DURATION  RegroupTime 

TargetHandover( target, firingPosition); 
END  WAIT; 

END  IF; 

END  METHOD;  (*  Hold  *) 


(* 


*) 


ASK  METHOD  UpdateStatus; 

VAR 

r*adyToMove  :  BOOLEAN; 

BEGIN 

readyToMove  : =  FALSE; 

FOR  i  :=  1  TO  3 

IF  NOT  ASK  platoon( i]  set 
set  :  =  FALSE; 

EXIT; 

ELSE 

set  ;  =  TRUE; 

END  IF; 

END  FOR; 

IF  set  AND  NOT  finalAssault 
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ASK  rayHQ  TO  UpdateStatus; 

END  IF; 

IF  location. svmbol  =  ASLTPSN 
FOR  i  :=  1  TO  3 

IF  NOT  ASK  platoon[ i]  engagementComplete 
readyToMove  :  =  FALSE; 

EXIT; 

ELSE 

readyToMove  : =  TRUE; 

END  IF; 

END  FOR; 

END  IF; 

IF  (readyToMove)  AND  (NOT  finalAssault) 
finalAssault  :=  TRUE; 

FinalAssault; 

END  IF; 

END  METHOD;  (*  Company  UpdateStatus  *) 


(* 


*) 


TELL  METHOD  Attack; 

BEGIN 

FOR  i  :=  1  TO  3 
TELL  platoon[ i]  TO  Engage; 
END  FOR; 

END  METHOD;  (*  Attack  *) 


(* 


*) 


TELL  METHOD  FinalAssault; 

BEGIN 

WAIT  FOR  SELF  TO  MoveTo( location. nextPosition,  Foot) 

IF  walkingThru 
IF  firstTimeSet 
Delay(5); 

ClearScreen; 
firstTimeSet  :=  FALSE; 

END  IF; 

END  IF; 

FOR  i  :=  1  TO  3 

ASK  platoon[ i]  TO  SetLocationf location); 

WAIT  FOR  platoon[ i]  TO 

OccupyFiringPosition( location. firingPositions[  i] ) 
END  WAIT; 

END  FOR; 

FOR  i  :=  1  TO  3 

TELL  platoon[i]  TO  FinalAssault; 

END  FOR; 

END  WAIT; 

IF  walkingThru 

OUTPUT( "Company  ",unitName,"  now  in  ".location,  symbol); 
END  IF; 

TELL  movementCompletQ  TO  Trigger; 

END  METHOD;  (*  FinalAssault 
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*) 


(* . 

TELL  METHOD  TargetHandover( IN  target  :  EnemyVehicleObj; 

IN  firingPosition  :  STRING); 

VAR 

j,  closestPlt  :  INTEGER; 

dist,  shortestDist  •  REAL; 
handedOver, 
candidate, 
ammoAvail, 

pltlnRange  :  BOOLEAN; 

pltTargetList  :  StackObj; 

unassignableTarget  :  EnemyVehicleObj; 

Ammo,  Busy  :  ARRAY  INTEGER  OF  BOOLEAN; 

BEGIN 

NEW( pltTargetList); 

NEW(Ammo,  1..3); 

NEW(Busy,  1.  .3); 
handedOver  :  =  FALSE; 
pltlnRange  :  =  FALSE; 
candidate  :  =  FALSE; 
ammoAvail  :=  FALSE; 

ASK  pltTargetList  TO  Add( target); 

FOR  is*  1  TO  3 

ASK  platoon[ i]  TO  UpdateStatus; 

END  FOR; 

WAIT  DURATION  RegroupTime;  (*  until  all  platoons  complete  firing  *) 
FOR  i  :=  1  TO  3 

IF  NOT  ASK  platoon[ i]  outOfATGMammo 
Ammo[ i]  :  =  TRUE; 
ammoAvail  :=  TRUE; 

ELSE 

Ammo[ i]  : =  FALSE; 

END  IF; 

IF  (NOT  ASK  platoon[ i]  engaging)  AND 
(NOT  ASK  platoon( ij  outOfATGMammo) 

Busy[ i]  :  =  FALSE; 
candidate  :  =  TRUE; 

FT  QF 

Busy[  i]  :=  TRUE; 

END  IF; 

END  FOR; 

IF  ammoAvail 
IF  candidate 
FOR  i  :  =  1  TO  3 

IF  (NOT  Busy[  i]  )  AND  (Ammo[  i]  ) 

dist  :=  Distance(ASK  platoon[ i]  location. coordinate, 

ASK  target  location); 

IF  dist  <  1000. 0 
IF  walkingThru 

OUTPUT( "Company  ".unitName,"  handing  over  target  ",ASK 
target  idNumber); 

OUTPUT("  to  platoon  ",i); 

ASK  EngagementHistory  TO  WriteString( "Handing  over  "); 
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ASK  EngagementHistory  TO  WriteInt(ASK  target 

idNumber,3); 

ASK  EngagementHistory  TO  WriteString("  to  platoon  "); 

ASK  EngagementHistory  TO  WriteString(ASK  platoon[ i] 

identity); 

ASK  EngagementHistory  TO  WriteLn; 

END  IF; 

ASK  platoon] i]  TO  PrepareToEngage(pltTargetList); 
handedOver  : =  TRUE; 
pltlnRange  :=  TRUE; 

EXIT; 

END  IF; 

END  IF; 

END  FOR; 

IF  NOT  pltlnRange 

(*  Since  no  platoon  is  currently  in  range,  find  the  closest  platoon 
and  move  it  to  the  firing  position.  *) 
shortestDist  :=  5000.0;  (*arbitrary  starting  distance*) 

FOR  i  :=  1  TO  3 

IF  (NOT  Busy[  i]  )  AND  (Ammo[i]) 
dist  :=  Distance(ASK  platoon[ i]  location. coordinate, 
f iringPosition); 

IF  dist  <  shortestDist 
closestPlt  :=  i; 
shortestDist  :=  dist; 

END  IF; 

END  IF; 

END  FOR; 

IF  NOT  (closestPlt  =  0) 

WAIT  FOR  platoon] closestPlt]  TO  OccupyFiringPosition( f iringPosition); 
ASK  platoon] closestPlt]  TO  PrepareToEngage(pltTargetList); 

IF  walkingThru 

0UTPUT( "Moving  platoon  ",ASK  platoon] closestPlt]  identity); 
0UTPUT("  to  new  position  to  engage  ",ASK  target  idNumber); 

END  IF; 

handedOver  :  =  TRUE; 

END  WAIT; 

ELSE 

Hold(target,  f iringPosition); 

END  IF; 

END  IF; 

ELSE 

Hold( target,  f iringPosition); 

END  IF; 

ELSE 

IF  walkingThru 

0UTPUT( "Unable  to  handover  target  " .target. idNumber); 

ASK  EngagementHistory  TO  WriteString( "Unable  to  handover  "); 

ASK  EngagementHistory  TO  WriteString( "target  "); 

ASK  EngagementHistory  TO  Writelnt( target.  idNumber, 4); 

ASK  EngagementHistory  TO  WriteLn; 

END  IF; 

unassignableTarget  :=  ASK  pltTargetList  TO  ReraoveQ; 

END  IF; 

END  WAIT; 

DISPOSE(Ammo);  DISPOSE(Busy); 
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END  METHOD;  (*  TargetHandover  *) 


(* 


*) 


TELL  METHOD  ArtilleryInterrupt(IN  casualtyAssessment  :  REAL); 
BEGIN 

IF  walkingThru 

0UTPUT( "Company  ",unitName,"  receiving  fires  vicinity  ", 
location. symbol); 

0UTPUT("  ...Casualty  assessment  is  ", casualtyAssessment); 
Delay(2); 

END  IF; 

IF  moving 

Interrupt  SELF,  "MoveTo"); 

FOR  i  :=  1  TO  3 

ASK  platoon[  i]  TO  TakeCasualties( casualtyAssessment); 

END  FOR; 

ELSE 

FOR  i  :=  1  TO  3 

TELL  platoon[ i]  TO  InterruptEngage; 

ASK  platoon[ i]  TO  TakeCasualties(casualtyAssessment); 
END  FOR; 

END  IF; 

END  METHOD;  (*  Artillerylnterrupt  *) 


END  OBJECT;  (*  Rif leCompanyObj  *) 


(*  ********VfV.".'r****?‘;iV*V:************'!>*‘.'f*iV***.Wf*;WfA*>Wf***AVf*****Vf *!':***  Vr  j 


OBJECT  BattalionObj; 

VfV!5WfVf******?V****Vf*******Vf*****Vf*Vf**iWfiWf***VtiV*****5V********)WoWf*  * ) 


ASK  METHOD  Objlnit; 

VAR 

co  :  Rif leCompanyObj; 

BEGIN 

NEW (execute);  (*  Trigger  Object  *) 

NEW( company ,  A.  .D); 

FOR  name  : =  A  TO  C 
NEW(co); 

ASK  co  TO  CompanyInit(SELF,  name); 
company! name]  :  =  co; 

END  FOR; 

END  METHOD;  (*  Objlnit  *) 


(* 


*) 


TELL  METHOD  ExecuteMission; 

BEGIN 

FOR  name  :  =  A  TO  C 

TELL  company! name]  TO  ExecuteMovementPlan; 

END  FOR; 

IF  playingArty 

TELL  company! A]  TO  ArtilleryInterrupt(Pk[ A] )  IN  ImpactTimeA; 
TELL  company! B]  TO  ArtilleryInterrupt(Pk[ B] )  IN  ImpactTimeB; 
TELL  company! C]  TO  ArtilleryInterrupt(Pk[ C] )  IN  ImpactTimeC; 
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END  IF; 

WAIT  FOR  execute  TO  Fire  (*  Update  status  releases  *) 

(*  To  execute  a  simultaneous  attack. ...  *) 

WeaponsStatus  :=FREE; 
f irstTimeSet  :  =  TRUE; 

IF  walkingThru 

0UTPUT( "Executing  a  synchronized  attack."); 

Delay(2); 

ClearScreen; 

END  IF; 

FOR  name  :=  A  TO  C 

TELL  company [name]  TO  Attack; 

END  FOR; 

END  WAIT; 

END  METHOD;  (*  ExecuteMission  *) 

(*  — - - - - - -  *) 


ASK  METHOD  UpdateStatus; 

VAR 

allUnitsSet  :  BOOLEAN; 

BEGIN 

allUnitsSet  :=  FALSE; 

FOR  name  : =  A  TO  C 

IF  NOT  ASK  company[ name]  set 
allUnitsSet  :=  FALSE; 

EXIT; 

ELSE 

allUnitsSet  :=  TRUE; 

END  IF; 

END  FOR; 

IF  allUnitsSet 
TELL  execute  TO  Trigger; 

END  IF; 

END  METHOD;  (*  Battalion  UpdateStatus  *) 
END  OBJECT; 

END  MODULE. 
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D.  FPC 


DEFINITION  MODULE  FPC; 

FROM  GrpMod  IMPORT  StackObj; 

FROM  Unit  IMPORT  UnitObj; 

FROM  OPFOR  IMPORT  EnemyVehicleObj; 

TYPE  • 

TrooperType  =  (rifleman,  autorifleman,  grenadier,  machinegunner, 
dragongunner ,  leader); 

StrengthList  =  ARRAY  TrooperType  OF  INTEGER; 

ATGMList  =  ARRAY  INTEGER  OF  ANYOBJ; 

(*  ARRAY  INTEGER  OF  ATGMObj  *) 

FPCObj  =  OBJECT;  (*  Generic  rifle  platoon  firepower  capability  *) 
myHQ  :  UnitObj; 

identity, 

location  :  STRING; 

engaging, 

ready, 

outOfATGMammo, 

firingComplete, 

finalAssault  :  BOOLEAN; 

strength  :  StrengthList; 

missileSection  :  ATGMList; 

ASK  METHOD  FPCInit(IN  HQ  :  UnitObj); 

ASK  METHOD  DecrementFPC(IN  lossPercentage  :  REAL); 

ASK  METHOD  UpdateStatus; 

ASK  METHOD  SetLocation( IN  coordinate  :  STRING); 

TELL  METHOD  PrepareToFire( IN  pltTargetList  :  StackObj); 

TELL  METHOD  ReAssign(IN  target  :  EnemyVehicleObj); 

TELL  METHOD  Fire; 

TELL  METHOD  FinalAssault; 

TELL  METHOD  InterruptFire; 

END  OBJECT; 

END  MODULE. 
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IMPLEMENTATION  MODULE  FPC; 


FROM  GrpMod  IMPORT  StackObj; 

FROM  Unit  IMPORT  UnitObj; 

FROM  ATGM  IMPORT  ATGMObj; 

FROM  OPFOR  IMPORT  EnemyVehicleObj; 

FROM  Menu  IMPORT  walkingThru; 

FROM  Globals  IMPORT  RandomCasualty ,  ALL  TargetStatusType, 

EngagementHistory,  RegroupTime,  AttritionFile; 


OBJECT  FPCObj; 

ASK  METHOD  FPCInit(IN  HQ  :  UnitObj); 
VAR 

i  :  INTEGER; 

dragon  :  ATGMObj ; 
templd  :  STRING; 


BEGIN 

myHQ 

identity 

location 

engaging 

ready 

outOfATGMammo 
firingComplete 
finalAssault 
NEW( strength,  rifleman. 
strength[ rifleman] 
strength! autorifleman] 
strength! grenadier] 
strength! machinegunner] 
strength! dragongunner] 
strength!  leader] 
templd 

NEW(missileSection,  1. . 


HQ; 

ASK  myHQ 
ASK  myHQ 
FALSE; 

FALSE; 

FALSE; 

FALSE; 

FALSE; 
leader); 

11; 

6; 

6; 

2; 

2; 

12; 

identity; 
strength]  dragongunner] ); 


identity; 

location,  coordinate; 


FOR  i  :  =  1  TO  strength] dragongunner] 

NEW( dragon); 

REPLACE( templd ,3,3, INTTOSTR(i)) ; 

ASK  dragon  TO  ATGM Init( SELF,  templd); 
missileSection] i]  :=  dragon; 

END  FOR; 

END  METHOD;  (*  FPCInit  *) 


(* 


*) 


ASK  METHOD  DecreraentFPC(IN  lossPercentage  :  REAL); 
VAR 

j  :  TrooperType; 

i,  numSoldiers, 
numLosses , 

dragonLosses  :  INTEGER; 

loss ,  runningSum  :  REAL; 

dragon  :  ATGMObj; 
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BEGIN 

dragonLosses  :=  0; 
numSoldiers  :=  1; 

FOR  j  :=  rifleman  TO  leader 

numSoldiers  :=  numSoldiers  +  strength[j]; 

END  FOR; 

numLosses  :=  TRUNC(FLOAT( numSoldiers  -  1)  *  lossPercentage); 

FOR  i  :=  1  TO  numLosses 

numSoldiers  :  =  numSoldiers  -  1; 
j  : =  rifleman; 

runningSum  :=  FLOAT(strength[  j]  )/FLOAT(numSoldiers); 
loss  :=  ASK  RandomCasualty  SampleQ; 

LOOP 

IF  loss  <  runningSum 

strength[  j]  :=  strength!  j]  -  1; 

IF  j  =  dragongunner 
INC( dragonLosses); 

END  IF; 

EXIT; 

ELSE 

INC(J); 

runningSum  :=  runningSum  +  FL0AT( strength! j]  )/FL0AT( numSoldiers); 
END  IF; 

END  LOOP; 

END  FOR; 

IF  dragonLosses  >  0 
IF  dragonLosses  =  2 

outOfATGMammo  :=  TRUE; 
ready  : =  TRUE; 

engaging  :=  FALSE; 

firingComplete  :  =  TRUE; 

ASK  myHQ  TO  UpdateStatus; 

END  IF; 

IF  walkingThru 

OUTPUT^  ",  identity,"  dragon  losses  =  ", dragonLosses); 

END  IF; 

FOR  i  :=  2  D0WNT0  (3  -  dragonLosses) 
dragon  :=  missileSectionf i] ; 

IF  NOT  (ASK  dragon  assignedTarget  -  NILOBJ) 

ReAssign(ASK  dragon  assignedTarget); 

END  IF; 

END  FOR; 

END  IF; 

IF  walkingThru 

ASK  AttritionFile  TO  WriteString("Attrition  to  platoon  "  +  identity); 

ASK  AttritionFile  TO  WriteStringC"  with  "); 

ASK  AttritionFile  TO  WriteInt(numLosses ,4); 

ASK  AttritionFile  TO  WriteStringC"  losses."); 

ASK  AttritionFile  TO  WriteLn; 

ASK  AttritionFile  TO  WriteStringC "Strengths  for  each  class  of  soldier"); 
ASK  AttritionFile  TO  WriteLn; 

FOR  j  :=  rifleman  TO  leader 
CASE  j 

WHEN  rifleman  : 

ASK  AttritionFile  TO  WriteStringC "rifleman  "); 
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WHEN  autorifleman  : 

ASK  AttritionFile  TO  WriteString( "autorifleman  "); 
WHEN  grenadier  : 

ASK  AttritionFile  TO  WriteString( "grenadier  "); 

WHEN  machinegunner  : 

ASK  AttritionFile  TO  WriteString( "machinegunner  "); 
WHEN  leader  : 

ASK  AttritionFile  TO  WriteString("leader  "l; 

OTHERWISE 

ASK  AttritionFile  TO  WriteString("dragongunner  "); 
END  CASE; 

ASK  AttritionFile  TO  Writelnt(strength[ j] ,3); 

ASK  AttritionFile  TO  WriteLn; 

END  FOR; 

END  IF; 

END  METHOD;  (*  DecrementFPC  *) 


(* 


*) 


ASK  METHOD  SetLocation( IN  coordinate  :  STRING); 
VAR 

i  :  INTEGER; 

dragon  :  ATGMObj; 

BEGIN 

location  :=  coordinate; 

IF  strength! dragongunner)  >  0 
FOR  i  :=  1  TO  strength! dragongunnex] 
dragon  :=  missileSection(  i] ; 

ASK  dragon  TO  SetLocation( coordinate); 
END  FOR; 

END  IF; 

END  METHOD;  (*  SetLocation  *) 


(* 


*) 


ASK  METHOD  UpdateStatus; 

VAR 

i  :  INTEGER; 

dragon  :  ATGMObj; 

BEGIN 

IF  strength! dragongunner]  >  0 

IF  NOT  finalAssault 

FOR  i  :  =  1  TO  strength! dragongunner] 
dragon  :=  missileSectionf i] ; 

IF  NOT  ASK  dragon  ready 
ready  :=  FALSE; 

EXIT; 

ELSE 

ready  :  =  TRUE; 

END  IF; 

END  FOR; 
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FOR  i  : =  1  TO  strength[ dragongunner] 
dragon  :  =  missileSection]  i] ; 

IF  NOT  ASK  dragon  firingComplete 
f iringComplete  :=  FALSE; 

EXIT; 

ELSE 

f iringComplete  :=  TRUE; 

END  IF; 

END  FOR; 

IF  ready  OR  f iringComplete 
ASK  myHQ  TO  UpdateStatus; 

END  IF; 

END  IF; 

FOR  i  :=  1  TO  strength(  dragongunner] 
dragon  :=  missileSection] i] ; 

IF  ASK  dragon  missile. ammoCount  >  0 
outOf ATGMammo  : =  FALSE; 

EXIT; 

ELSE 

outOf ATGMammo  :  =  TRUE; 

END  IF; 

END  FOR; 

FOR  i  : =  1  TO  strength] dragongunner] 
dragon  :=  missileSection] i] ; 

IF  ASK  dragon  engaging 
engaging  : =  TRUE; 

EXIT; 

ELSE 

engaging  : =  FALSE; 

END  IF; 

END  FOR; 

IF  (outOf ATGMammo)  OR  (NOT  engaging) 
ASK  myHQ  TO  UpdateStatus; 

END  IF; 

END  IF; 

END  METHOD;  i*  UpdateStatus  *) 


(* 


*) 


TELL  METHOD  PrepareToFire( IN  pltTargetList  :  StackObj); 
VAR 

i,  j,  numTargets  :  INTEGER; 

dragon  :  ATGMObj; 

tgt  :  EnemyVehicleObj; 

passed  :  BOOLEAN; 

BEGIN 
j  :=  lj 

numTargets  :=  ASK  pltTargetList  numberln; 

FOR  i  : =  1  TO  numTargets 
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passed  :=  FALSE; 

tgt  :=  ASK  pltTargetList  TO  Remove(); 

IF  j  >  strength[ dragongunner] 

TELL  myHQ  TO  TargetHandover(tgt,  location); 
passed  :=  TRUE; 

ELSE 

LOOP 

dragon  :=  missileSection] j] ; 

IF  ASK  dragon  missile.  ammoCount  >  0 
TELL  dragon  TO  Target(tgt); 
passed  : =  TRUE; 
engaging  : =  TRUE; 

IF  (numTargets  =1)  AND  (j  <  strength] dragongunner] ) 
dragon  :=  missileSection[  j+1] ; 

TELL  dragon  TO  Wait; 

END  IF; 

EXIT; 

END  IF; 

INC(j)j 

IF  j  >  strength] dragongunner] 

EXIT; 

END  IF; 

END  LOOP; 

IF  NOT  passed 

TELL  myHQ  TO  TargetHandover(tgt,  location); 

END  IF; 

END  IF; 

INC(j); 

END  FOR; 

END  METHOD;  (*  PrepareToFire  *) 


(* 


*> 


TELL  METHOD  ReAssign(IN  target  :  EnemyVehicleObj); 

VAR 

i  INTEGER; 

reassigned  :  BOOLEAN; 
dragon  :  ATGMObj; 

BEGIN 

reassigned  :=  FALSE; 

WAIT  DURATION  RegroupTime 
UpdateStatus; 

IF  NOT  outOfATGMammo 
FOR  i  :=  1  TO  strength[ dragongunner] 
dragon  : “  missileSection[  i] ; 

IF  (ASK  dragon  missile.  ammoCount  >  0)  AND 

(ASK  dragon  targetStatus  =  killed) 

IF  walkingThru 

OUTPUT( "Reassigning  ",  target.  idNumber,"  to  ",  dragon. identity); 
ASK  EngagementHistory  TO  WriteString( "Reassigning  "); 

ASK  EngagementHistory  TO  WriteInt(ASK  target  idNumber, 3); 

ASK  EngagementHistory  TO  WriteString("  to  "); 

ASK  EngagementHistory  TO  WriteString(ASK  dragon 

identity); 

ASK  EngagementHistory  TO  WriteLn; 
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END  IF; 

TELL  dragon  TO  Target( target); 
engaging  :  =  TRUE; 
reassigned  :=  TRUE; 

EXIT; 

END  IF; 

END  FOR; 

IF  NOT  reassigned 
IF  walkingThru 

0UTPUT( identity,"  handing  over  ",ASK  target  idNumber); 
END  IF; 

TELL  myHQ  TO  TargetHandover( target,  location); 

END  IF; 

ELSE 

IF  walkingThru 

OUTPUT( identity ,"  handing  over  ",ASK  target  idNumber); 
END  IF; 

TELL  myHQ  TO  TargetHandover( target ,  location); 

END  IF; 

END  WAIT’ 

END  METHOD;  (*  ReAssign  *) 


(* 


*) 


TELL  METHOD  Fire; 

VAR 

i  :  INTEGER; 

dragon  :  ATGMObj; 

BEGIN 

IF  strength! dragongunner]  >  0 
FOR  i  : —  1  TO  strength! dragongunner] 
dragon  :=  missileSection[  i] ; 

TELL  dragon  TO  Fire; 

END  FOR; 

END  IF; 

END  METHOD;  (*  Fire  *) 


(* 


*) 


TELL  METHOD  FinalAssault; 

VAR 

i  :  INTEGER; 

dr'gon  :  ATGMObj; 

BEGIN 

finalAssault  :=  TRUE; 

IF  strength! dragongunner]  >  0 
FOR  i  : =  1  TO  strength! dragongunner] 
dragon  :=  missileSection( i] ; 

IF  (ASK  dragon  targetStatus  <>  killed) 
AND  (NOT  ASK  dragon  unassigned) 
TELL  dragon  TO  EngageArraorTarget; 

END  IF; 

END  FOR; 

END  IF; 
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END  METHOD; 


(*  FinalAssault  *) 


fit . . - - - - - A) 

TELL  METHOD  InterruptFire; 

VAR 

i  :  INTEGER; 


dragon  :  ATGMObj; 

BEGIN 

IF  strength[ dragongunner]  >  0 
FOR  i  :=  1  TO  strength[ dragongunner] 
dragon  ;  =  missile£^ction[  i] ; 

TELL  dragon  TO  InterruptMissileFire; 
END  FOR; 

END  IF; 

END  METHOD;  (*  InterruptFire  *) 

END  OBJECT;  (*  FPCObj  *) 

END  MODULE. 
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E.  ATGM 


DEFINITION  MODULE  ATGM: 

FROM  SimMod  IMPORT  TriggerObj; 

FROM  RandMod  IMPORT  RandomObj; 

FROM  FPC  IMPORT  FPCObj; 

FROM  OPFOR  IMPORT  EnemyVehicleObj; 

FROM  Weapons  IMPORT  MissileRecordType; 

FROM  Globals  IMPORT  TargetStatusTyp*; 

TYPE 

ATGMObj  =  OBJECT 

myUnit  :  FPCObj; 

identity  :  STRING; 

location  :  STRING; 

missile  :  MissileRecordType; 

permission  :  TriggerObj; 

assignedTarget  :  EnemyVehicleObj; 

distanceToTarget  :  REAL; 

targetStatus  :  TargetStatusType; 

engaging, 

unassigned, 

acquired, 

ready, 

trflckin§ } 

firingComplete  :  BOOLEAN; 

ASK  METHOD  ATGMInit(IN  unit  :  FPCObj; 

IN  id  :  STRING); 

ASK  METHOD  UpdateMissi leStatus; 

ASK  METHOD  SetLocation( IN  coordinate  :  STRING); 
TELL  METHOD  Target(IN  target  :  EnemyVehicleObj); 
TELL  METHOD  Wait; 

TEuL  METHOD  EngageArmorTarget; 

TELL  METHOD  PrepNissile; 

TELL  METHOD  AcquireTarget; 

TELL  METHOD  Fire; 

TELL  METHOD  TrackMissile; 

TELL  METHOD  CutWires; 

TELL  METHOD  InterruptMissileFire; 

END  OBJECT; 

END  MODULE. 
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IMPLEMENTATION  MODULE  ATGM; 


FROM  SimMod 

IMPORT  Interrupt; 

FROM  OPFOR 

IMPORT  EnemyVehicleObj; 

FROM  FPC 

IMPORT  FPCObj; 

FROM  MapRecon 

IMPORT  Distance; 

FROM  Impact 

IMPORT  ALL  ImpactAreaType,  AspectAngle,  AssessDamage; 

FROM  Weapons 

IMPORT  ALL  MissileType,  MissileSystem; 

FROM  Menu 

IMPORT  walkingThru; 

IMPORT  TotalOPFOR losses; 

FROM  MOE 

FROM  Globals 

IMPORT  ALL  WeaponsStatusType,  OutputFile, 
EngagementHistory ,  WeaponsStatus , 

ALL  TargetStatusType,  HitOrMiss; 

OBJECT  ATGMObj; 


ASK  METHOD  ATGMInit(IN  unit  :  FPCObj; 


BEGIN 

IN  id  :  STRING); 

myUnit 

=  unit; 

identity 

=  id; 

location 

=  ASK  myUnit  location; 

=  CL0NE( Miss ileSystem[ Dragon] ); 

missile 

assignedTarget 

=  NILOBJ; 

unassigned 

=  FALSE; 

targetStatus 

=  missed; 

acquired 

=  FALSE; 

ready 

=  FALSE; 

tracking 

=  FALSE; 

firingComplete 

=  FALSE; 

engaging 

NEW(permission); 

=  FALSE; 

END  METHOD;  (*  ATGM 1 nit  *) 

(* 


*) 


ASK  METHOD  UpdateMissileStatus; 

(*  PrepMissile  and  AcquireTarget  invoke  this  method  when 
their  status  changes  *) 

BEGIN 

IF  acquired 
ready  :=  TRUE; 

IF  WeaponsStatus  =  HOLD 
ASK  myUnit  TO  UpdateStatus; 

ELSE 

TELL  permission  TO  Trigger; 

END  IF; 

END  IF; 

END  METHOD;  (*  UpdateMissileStatus  *) 


(* 


*) 


ASK  METHOD  SetLocation( IN  coordinate  :  STRING); 
BEGIN 
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location  :=  coordinate; 

END  METHOD;  (*  SetLocation  *) 


(*  .  *) 

TELL  METHOD  Target(IN  target  :  EnemyVehicleObj ); 

BEGIN 

unassigned  :=  FALSE; 

assignedTarget  :=  target; 

targetStatus  :=  missed; 

engaging  : =  TRUE; 

IF  missile.  ammoCount  >  0 
EngageArmorTarget; 

ELSE 

TELL  mvUnit  TO  ReAssign(target); 

END  IF; 

END  METHOD;  (*  Target  *) 


(*  -  *) 

TELL  METHOD  Wait; 

BEGIN 

engaging  :  =  FALSE; 

unassigned  :=  TRUE; 
ready  :  =  TRUE; 

targetStatus  :=  killed; 
firingComplete  :=  TRUE; 
assignedTarget  :=  NILOBJ; 

ASK  mvUnit  TO  UpdateStatus; 

END  METHOD;  (*  Wait  *) 

(*  - - - - - - - Vr) 


TELL  METHOD  EngageArmorTarget; 

(*  This  method  simulates  an  ATGM  (Dragon/TOW)  engagement.  The 
gunner  receives  a  fire  mission,  prepares  the  missile,  acquires 
the  target,  fires,  and  tracks  the  missile  until  impact  or 
interrupted  by  incoming  fires.  *) 

BEGIN 

(*  The  WAIT  FOR  is  used  below  so  that  any  methods  waiting  will  also 
terminate  if  one  is  interrupted.  *) 

WAIT  FOR  SELF  TO  PrepMissile; 

END  WAIT; 

WAIT  FOR  permission  TO  Fire  (*from  UpdateMissileStatus  or  Fire*) 
IF  distanceToTarget  <=  missile..  maxEff Range 
WAIT  FOR  SELF  TO  TrackMissile 
END  WAIT; 

ELSIF  ASK  myUnit  finalAssault 

Wait;  (*  moved  out  of  range  of  previously  assigned  target  *) 
IF  walkingThru 

ASK  EngagementHistory  TO  WriteString( identity); 

ASK  EngagementHistory  TO  WriteString("  moved  out  of  "); 

ASK  EngagementHistory  TO  WriteString("  range  of  target  "); 
ASK  EngagementHistory  TO 

Wrirelnt( assignedTarget. idNumber ,3); 
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ASK  EngagementHistory  TO  WriteLn; 
END  IF; 

ELSE 

acquired  : =  FALSE; 

ready  :  =  FALSE; 

f iringComplete  :=  TRUE; 

END  IF; 

ASK  myUnit  TO  UpdateStatus; 

ON  INTERRUPT 
TERMINATE; 

END  WAIT; 

END  METHOD;  (*  EngageArmorTarget  *) 


(* 


*) 


TELL  METHOD  PrepMissile; 

BEGIN 

WAIT  DURATION  missile. prepTime 
AcquireTarget; 

ON  INTERRUPT  (*  Take  cover!  Incoming  fires...  *) 
TERMINATE; 

END  WAIT; 

END  METHOD;  (*  PrepMissile  *) 


(* 


*) 


TELL  METHOD  AcquireTarget; 

BEGIN 

WAIT  DURATION  missile. acquisitionTime 
IF  assignedTarget  <>  NILOBJ 

distanceToTarget  :=  DistanceC location,  ASK  assignedTarget 

location); 

acquired  :=  TRUE; 

UpdateMissileStatus; 

ELSE 

TERMINATE; 

END  IF; 

ON  INTERRUPT  (*  Take  cover!  Incoming  fires. . .  *) 
acquired  : -  FALSE; 

TERMINATE; 

END  WAIT; 

END  METHOD;  (*  AcquireTarget  *) 


(* 


*) 


TELL  METHOD  Fire; 

BEGIN 

TELL  permission  TO  Trigger; 
END  METHOD;  (*  Fire  *) 


(* 


*) 


TELL  METHOD  TrackMissile; 

VAR 

result  :  TargetStatusType; 

region  :  ImpactAreaType; 
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BEGIN 

tracking  :=  TRUE; 

WAIT  DURATION  distanceToTarget  /  missile. velocity  (^tracking  time*) 
missile. ammoCount  :=  missile. ammoCount  -  1; 
tracking  : =  FALSE; 

CutWires; 

IF  walkingThru 

ASK  EngagementHistory  TO  WriteString( identity); 

END  IF; 

(*  sample  probability  of  hit  *) 

IF  ASK  HitOrMiss  UniformReal(0. 0, 1. 0)  <  missile. pHit 
region  :=  AspectAngle( location,  assignedTarget); 
result  :=  AssessDamage(missile,  assignedTarget,  region); 
targetStatus  :=  result; 

IF  walkingThru 

0UTPUT( identity,"  ",  result,"  ",ASK  assignedTarget 

idNumber); 

END  IF; 

CASE  result 
WHEN  killed  : 

TotalOPFORlosses  :=  TotalOPFORlosses  +  1; 
engaging  :  =  FALSE; 

ASK  assignedTarget  TO 

VehicleTerminate(missile. system, 0RD( region)); 

IF  walkingThru 

ASK  EngagementHistory  TO  WriteStringC"  killed"); 

ASK  EngagementHistory  TO  WriteInt(ASK 

assignedTarget  idNumber, 3); 

END  IF; 

assignedTarget  :=  NILOBJ; 

WHEN  damaged:  . 

IF  walkingThru 

ASK  EngagementHistory  TO  WriteStringC"  damaged  "); 

ASK  EngagementHistory  TO  WriteInt(ASK 

assignedTarget  idNumber, 3); 

END  IF; 

IF  missile. ammoCount  =  0 
engaging  : =  FALSE; 

TELL  myUnit  TO  ReAssignC assignedTarget); 

ELSIF  ASK  myUnit  finalAssault 
EngageArmorTarget; 

END  IF; 

END  CASE; 

ELSE 

targetStatus  :=  missed; 

IF  walkingThru 

0UTPUT( identity,"  missed  ",  ASK  assignedTarget  idNumber); 

ASK  EngagementHistory  TO  WriteStringC"  missed  "); 

ASK  EngagementHistory  TO  WritelntCASK  assignedTarget 

idNumber ,3); 

END  IF; 

IF  missile. ammoCount  =  0 
engaging  :=  FALSE; 

TELL  myUnit  TO  ReAssignC assignedTarget); 

ELSIF  ASK  myUnit  finalAssault 
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EngageArmorTarget; 

END  IF; 

END  IF; 

IF  walkingThru 

ASK  EngagementHistory  TO  WriteLn; 

END  IF; 

ON  INTERRUPT  (*  Take  Cover!  Incoming  fires. . .  *) 

DEC(missile.  ammoCount);  (*  lost  missile  *) 

IF  walkingThru 

0UTPUT( identity,"  lost  missile  during  artillery  strike  "); 
END  IF; 

tracking  : =  FALSE; 

IF  missile. ammoCount  =  0 
engaging  :  =  FALSE; 

TELL  myUnit  TO  ReAssign(assignedTarget); 

END  IF; 

TERMINATE; 

END  WAIT1 

END  METHOD;  (*  TrackMissile  *) 


(* 


*) 


TELL  METHOD  CutWires; 

BEGIN 

(*  elapse  time  to  dismount  Dragon  sight  or  cut  TOW  wires  *) 
WAIT  DURATION  missile. cutTime 
acquired  : =  FALSE; 

ready  : =  FALSE; 

firingComplete  :=  TRUE; 

ASK  myUnit  TO  UpdateStatus; 

END  WAIT; 

END  METHOD;  (*  CutWires  *) 


(* 


*) 


TELL  METHOD  InterruptMissileFire; 

(*  called  from  higher  unit  receiving  indirect  fires  *) 
BEGIN 

Interrupt  SELF, "PrepMissile"): 

Interrupt( SELF , "AcquireTarget" ) ; 

Interrupt( SELF , "TrackMissile" ) ; 

ASK  myUnit  TO  UpdateStatus; 

END  METHOD;  (*  InterruptMissileFire  *) 

END  OBJECT;  (*  ATGMObject  *) 

END  MODULE. 
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F.  MAPRECON 


DEFINITION  MODULE  MapRecon; 

FROM  GrpMod  IMPORT  StackObj; 

FROM  Globals  IMPORT  UnitNaraeType; 

TYPE 

SymbolType  =  (ATKPSN,  LD,  CPI,  CP2,  CP3,  CP4,  CP5,  CP6, 

CP7,  CP8,  CP9,  CP10,  ASLTPSN,  INTOBJ,  OBJ); 

Targe tList  =  ARRAY  UnitNameType  OF  StackObj; 

PositionRecordType  =  RECORD 
symbol  :  SymbolType; 

coordinate  :  STRING; 

firingPositions  :  ARRAY  INTEGER  OF  STRING; 

nextPosition  :  PositionRecordType; 

END  RECORD; 

UnitMovementRouteList  =  ARRAY  UnitNameType  OF  PositionRecordType; 
PROCEDURE  ModelOperationsOverlay; 

PROCEDURE  Distance( IN  coordl,  coord2  :  STRING):  REAL; 


position 

UnitRoute 

UnitTargetList 

END  MODULE. 


PositionRecordType; 

UnitMovementRouteList; 

TargetList; 
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IMPLEMENTATION  MODULE  MapRecon; 


FROM  MathMod  IMPORT  SQRT,  CEIL; 

FROM  GrpMod  IMPORT  StackObj; 

FROM  IOMod  IMPORT  StreamObj,  FileUseType( Input); 

FROM  OPFOR  IMPORT  EnemyVehicleRef; 

FROM  Menu  IMPORT  selectedModel,  walkingThru; 

FROM  Globals  IMPORT  ALL  UnitNameType; 

PROCEDURE  ModelOperationsOverlay; 

VAR 

i,  numTgts,  targetID, 
numFiringPositions , 
symbolCrossReferenceNumber 
nilentry 
j 

coordinate 
TerrainDataFile 
targetList 
futurePosition 

BEGIN 

j  :  =  A; 

NEW( TerrainDataFile); 

CASE  selectedModel 

WHEN  1  :  ASK  TerrainDataFile  TO  Open( "terrain,  dat" ,  Input); 
WHEN  2  :  ASK  TerrainDataFile  TO  Open("terrain2. dat" ,  Input); 
OTHERWISE 

ASK  TerrainDataFile  TO  0pen("terrain3.  dat" ,  Input); 

END  CASE; 

ASK  TerrainDataFile  TO  ReadLine(nilentry); 

NEW(UnitRoute,  A. .D); 

NEW(UnitTargetList ,  A.  .D); 

WHILE  NOT  ASK  TerrainDataFile  eof 
WHILE  j  <-  C 

ASK  TerrainDataFile  TO  ReadLine(nilentry); 

LOOP 

NEW( position); 

ASK  TerrainDataFile  TO  Readlnt( symbolCrossReferenceNumber); 
position. symbol  :  =  VAL(SymbolType,  symbolCrossReferenceNumber); 
ASK  TerrainDataFile  TO  ReadStringCposition. coordinate); 

ASK  TerrainDataFile  TO  Readlnt(numFiringPositions); 

IF  numFiringPositions  >  0 

NEWCposition. f iringPositions ,  1. . numFiringPositions); 

FOR  i  :=  1  TO  numFiringPositions 
ASK  TerrainDataFile  TO 

ReadStringCposition. firingPositions[  i] ); 

END  FOR; 

END  IF; 

ASK  TerrainDataFile  TO  ReadLine(nilentry); 

IF  symbolCrossReferenceNumber  <  ORD(OBJ) 
position. nextPosition  :=  futurePosition; 

END  IF; 

futurePosition  :=  position; 

IF  symbolCrossReferenceNumber  =  0 
EXIT; 


INTEGER; 

STRING; 

UnitNameType; 

STRING; 

StreamObj; 

StackObj; 

PositionRecordType; 
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END  IF; 

END  LOOP; 

UnitRoute[j]  :=  position; 

ASK  TerrainDataFile  TO  ReadLine(nilentry); 

ASK  TerrainDataFile  TO  ReadLine(nilentry); 

ASK  TerrainDataFile  TO  Readlnt(numTgts); 

IF  numTgts  >  0 
NEW(UnitTargetList[ j] ); 

FOR  i  :=  1  TO  numTgts 

ASK  TerrainDataFile  TO  Readlnt(targetlD); 

ASK  UnitTargetList( j]  TO 

Add(EnetnyVehicleRef[  targetID] ); 

END  FOR; 

ASK  TerrainDataFile  TO  ReadLine(riilentry); 

END  IF; 

INC(j); 

END  WHILE; 

END  WHILE; 

ASK  TerrainDataFile  TO  Close; 

DISPOSE( TerrainDataFile); 

IF  walkineThru 

OUTPUT( "Model  Operations  Overlay  complete.  "); 

OUTPUT; 

END  IF; 

END  PROCEDURE;  (*  ModelOperationsOverlay  *) 

(* . *) 

PROCEDURE  Distance( IN  coordl,  coord2  :  STRING)  :  REAL; 

(*  Given  two  locations  in  UTM  Grid  Coordinates, (  note  these 

are  6-digit  (lOOmeter)  coordinates  with  two  letter  identifier) 
this  subroutine  determines  the  straight-line  distai.ee  in  meters 
between  the  two  points.  A  critical  assumption  of  this  procedure  is 
that  the  two  points  will,  at  most,  lie  on  two  adjacent  map  sheets.*) 


gridldentif ierl ,  gridldentifier2  : 
Xcoordl,  Xcoord2, 

Ycoordl,  Ycoord2  : 

DeltaX,  DeltaY  : 

northcoord,  southcoord, 

eastcoord,  westcoord  : 


STRING; 

REAL; 

REAL; 

REAL; 


BEGIN 


gridldentif ierl 

gridldentifier2 

Xcoordl 

Xcoord2 

Ycoordl 

Ycoord2 


=  SUBSTR( 1,2, coordl); 

=  SUBSTR( 1,2, coord2 ) ; 

=  STRT0REAL(SUBSTR(3, 5, coordl)); 
=  STRTOREAL( SUBSTR( 3,5, coord2 ) ) ; 
=  STRTOREAL( SUBSTR( 6,8, coordl ) ) ; 
=  STRTOREAL( SUBSTR( 6,8, coord2) ) ; 


(*  The  following  variables  are  used  when  the  two  points  lie  on  adjacent 
map  sheets.  *) 
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northcoord 

southcoord 

eastcoord 

westcoord 


=  1000.0  +  MIN0F( Ycocrdl , Ycoord2) ; 
=  MAX0F(Ycoordl,Ycoord2); 

=  1000.0  +  MIN0F(Xcoordl,Xcoord2); 
=  MAXOF ( Xcoor d 1 , Xcoord2 ) ; 


IF  gridldentifierl  =  gridldentifier2 
(*  Locations  are  within  the  same  100,000  square  meter  grid 
identification  zone.  *) 

DeltaX  :=  ABS(Xcoordl  -  Xcoord2); 

DeltaY  :=  ABS(Ycoordl  -  Ycoord2); 


ELSIF  SCHAR(gridldentifierl.l)  =  SCHAR(gridIdentifier2, 1) 
(*  Locations  are  in  adjacent  North-South  grid 
identification  zones.*) 

DeltaX  :=  ABS(Xcoordl  -  Xcoord2); 

DeltaY  :=  northcoord  -  southcoord; 


ELSIF  SCHAR( gridldentifierl ,2)  =  SCHAR(gridIdentifier2,2) 
(*  Locations  are  in  adjacent  East-West  grid 
identification  zones.*) 

DeltaX  :=  eastcoord  -  westcoord; 

DeltaY  :=  ABS(Ycoordl  -  Ycoord2); 


ELSE 

(*  Locations  are  in  diagonally  adjacent  grid 
identification  zones.*) 

DeltaX  :=  eastcoord  -  westcoord; 

DeltaY  :=  northcoord  -  southcoord; 

END  IF; 

RETURN  (SQRT(DeltaX*DeltaX  +  DeltaY*DeltaY))  *  100.0; 
END  PROCEDURE;  (*  Distance  *) 

END  MODULE. 
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G.  OPFOR 


DEFINITION  MODULE  OPFOR; 

FROM  RandMod  IMPORT  RandomObj; 

FROM  Weapons  IMPORT  MissileType; 

TYPE 

EnemyVehicleType  =  (BMP,  BRDM,  T72,  ZSU234); 

EnemvVehicleObj  =  OBJECT 
idNumber, 

engagementCount  :  INTEGER; 

type  :  EnemyVehicleType; 

location  :  STRING;  (*  UTM  Grid  coordinate  *) 

orientation  :  INTEGER; 

ASK  METHOD  Objlnit; 

ASK  METHOD  VehicleTerminate(IN  whatShotMe  :  MissileType; 

IN  where  :  INTEGER); 

END  OBJECT; 

EnemyVehicleRefList  =  ARRAY  INTEGER  OF  EnemyVehicleObj; 

PROCEDURE  ModelEnemyDefense; 

VAR 

defender  :  EnemyVehicleObj; 

IDnumber  :  INTEGER; 

Type  :  EnemyVehicleType; 

Location  :  STRING; 

Orientation  :  INTEGER; 

EnemyVehicleRef  :  EnemyVehicleRefList; 

END  MODULE. 
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IMPLEMENTATION  MODULE  OPFOR; 


FROM  SimMod  IMPORT  SimTime; 

FROM  IOMod  IMPORT  StreamObj,  FileUseType( Input); 

FROM  Weapons  IMPORT  ALL  MissileType; 

FROM  Globals  IMPORT  OutputFile; 

FROM  MOE  IMPORT  TotalOPFORstarting,  TotalOPFORlosses; 

FROM  Menu  IMPORT  walkingThru; 

PROCEDURE  ModelEnemyDefense; 

VAR 

OPFORdataFile  :  StreamObj; 

enemyVehicleCrossReferenceNumber  :  INTEGER; 
nilentry  :  STRING; 

BEGIN 

TotalOPFORlosses  :=  0; 

TotalOPFORstarting  :  =  0; 

NEW( OPFORdataFile); 

ASK  OPFORdataFile  TO  Open("opfor. dat",  Input); 

ASK  OPFORdataFile  TO  ReadLine(nilentry); 

NEW( EnemyVehicleRef ,  93. . 210); 

WHILE  NOT  ASK  OPFORdataFile  eof 

ASK  OPFORdataFile  TO  Readlnt(IDnumber); 

ASK  OPFORdataFile  TO  Readlnt(enemyVehicleCrossReferenceNumber); 
ASK  OPFORdataFile  TO  ReadStringC Location); 

ASK  OPFORdataFile  TO  Readlnt(Orientation); 

ASK  OPFORdataFile  TO  ReadLine( nilentry); 

Type  : -  VAL(EnemyVehicleType,enemyVehicleCrossRe£erenceNumber); 
NEW(defender); 

TotalOPFORstarting  :s  TotalOPFORstarting  +  1; 

EnemyVehicleReff IDnumber]  :=  CL0NE( defender); 

END  WHILE; 

ASK  OPFORdataFile  TO  Close; 

DISPOSE(OPFORdataFile); 

IF  walkingThru 

OUTPUT(  ’Model  Enemy  Defense  complete.  "); 

OUTPUT; 

END  IF; 

END  PROCEDURE;  (*  ModelEnemyDefense  *) 


(* 


*) 


OBJECT  EnomyVehicleObj; 


ASK  METHOD  Objlnit; 
BEGIN 

idNumber  : 

type  : 

location  : 

orientation  : 

engagementCount  : 
END  METHOD; 


=  IDnumber; 

=  Type; 

-  Location; 

=  Orientation; 
=  0; 


(* 


*) 


84 


ASK  METHOD  VehicleTerminateCIN  whatShotMe  :  MissileType; 

IN  where  :  INTEGER); 

VAR 

weapon , 
region, 

vehicleType  :  STRING; 

BEGIN 

IF  walkingThru 
CASE  whatShotMe 

WHEN  Dragon  :  weapon  :=  "dragon"; 

OTHERWISE 

weapon  :=  "TOW"; 

END  CASE; 

CASE  where 

WHEN  0  :  region  :=  "frontal"; 

WHEN  1  :  region  :  =  "flank"; 

OTHERWISE 

region  :  =  "rear"; 

END  CASE; 

CASE  type 

WHEN  BMP  :  vehicleType  :=  "BMP": 

WHEN  BRDM  :  vehicleType  :=  "BRDM"; 

WHEN  T72  :  vehicleType  :=  "T72"; 

OTHERWISE 

vehicleType  :=  "ZSU234"; 

END  CASE; 

engagementCount  :  =  engagementCount  +  1; 

IF  engagementCount  >  1 

ASK  OutputFile  TO  WriteString( "Multiply  engaged  target"); 
ASK  OutputFile  TO  WritelntC engagementCount,  5); 

ASK  OutputFile  TO  WriteStringC"  engagements  thus  far."); 
END  IF; 

ASK  OutputFile  TO  WriteString( "Enemy  "); 

ASK  OutputFile  TO  WriteStringC vehicleType); 

ASK  OutputFile  TO  WriteStringC"  number"); 

ASK  OutputFile  TO  WritelntC idNumber, 5); 

ASK  OutputFile  TO  WriteStringC"  KIA. "); 

ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteStringC"  Killed  at  H  +  "); 

ASK  OutputFile  TO  WriteReal(SimTime( )/3600.  0,4,1); 

ASK  OutputFile  TO  WriteString("hrs  by  weapon  type  "); 

ASK  OutputFile  TO  WriteString(weapon); 

ASK  OutputFile  TO  WriteStringC"  from  a  "); 

ASK  OutputFile  TO  WriteStringC region): 

ASK  OutputFile  TO  WriteStringC"  shot."); 

ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteLn; 

END  IF; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 
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H.  IMPACT 


DEFINITION  MODULE  Impact; 

FROM  OPFOR  IMPORT  EnemyVehicleObj; 

FROM  Weapons  IMPORT  MissileRecordType; 

FROM  Globals  IMPORT  TargetStatusType; 

TYPE 

ImpactAreaType  =  (front,  flank,  rear); 

PROCEDURE  AspectAngle( IN  GunLocation  :  STRING; 

IN  Target  :  EnemyVehicleObj)  : 

ImpactAreaType; 


PROCEDURE  AssessDamage( IN  missile  ;  MissileRecordType; 

IN  target  :  EnemyVehicleObj; 

IN  impactPoint  :  ImpactAreaType)  : 

TargetStatusType; 

END  MODULE. 
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IMPLEMENTATION  MODULE  Impact; 


FROM  MathMod 
FROM  OPFOR 
FROM  Weapons 
FROM  Globals 


IMPORT  ATAN,  ACOS,  SIN,  COS,  pi; 

IMPORT  EnemyVehicleObj; 

IMPORT  ALL  MissileType,  MissileRecordType; 
IMPORT  ALL  TargetStatusType,  BDA; 


PROCEDURE  AspectAngle( IN  GunLocation  :  STRING  ; 

IN  Target  :  EnemyVehicleObj)  : 

ImpactAreaType; 

(*  Given  a  gun  location  and  a  target  location  in  6-digit  (100  m) 

UTM  coordinates  with  two  letter  identifier, 

this  procedure  determines  the  engagement  aspect  angle  and 

returns  the  region  of  the  target  in  which  the  round  impacts. 

This  model  assumes  targets  are  symmetric  with  respect  to  their 
center  of  mass. 

Calculation  of  aspect  angle  is  based  on  vector  mathematics, 
where  the  aspect  angle  ALPHA  is  obtained  from  the  dot  product  of 
the  gun-target  vector  GAMMA,  and  the  target  orientation  vector 
THETA,  where  the  target  location  is  the  origin  with  Grid  North  as 
0  degrees.  *) 


VAR 

ALPHA,  GAMMA,  THETA  :  REAL; 

gridldentifierGun,  gridldentif ierTgt  :  STRING; 

gunXcoord,  tgtXcoord, 

gunYcoord,  tgtYcoord  :  INTEGER; 

DeltaX,  DeltaY  :  INTEGER; 

northcoord,  southcoord, 

eastcoord,  westcoord  :  INTEGER; 

BEGIN 


gridldentifierGun 

gridldentif ierTgt 

gunXcoord 

tgtXcoord 

gunYcoord 

tgtYcoord 


=  SUBSTR( 1,2, GunLocation); 

=  SUBSTR( 1 ,2, ASK  Target  location); 

=  STRT01NT( SUBSTRC  3,5, GunLocation) ) ; 

=  STRT0INT( SUBSTRC 3,5, ASK  Target  location)); 
=  STRT0INT( SUBSTR (6,8, GunLocation) ) ; 

=  STRT0INT( SUBSTRC 6 , 8 , ASK  Target  location)); 


(*  The  following  variables  are  used  when  the  two  points  lie  on 
adja  .ent  map  sheets.  *) 


northcoord 

southcoord 

eastcoord 

westcoord 


=  1000  +  MIN0F( gunYcoord, tgtYcoord); 
=  MAX0F( gunYcoord, tgtYcoord); 

=  1000  +  MIN0F( gunXcoord, tgtXcoord); 
=  MAX0T( gunXcoord, tgtXcoord); 


(*  Convert  target  orientation  angle  to  radians.  *) 
THETA  :=  FL0AT(ASK  Target  orientation)  *  pi  /  180.0; 
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(*  Determine  the  horizontal  and  vertical  components  of  the 
gun-target  vector.  *) 

IF  gridldentifierGun  =  gridldentifierTgt 
(*  Locations  are  within  the  same  100,000m  square 
identification  zone.  *) 

DeltaX  :=  ABS(gunXcoord  -  tgtXcoord); 

DeltaY  :=  ABS(gunYcoord  -  tgtYcoord); 

(*  in  this  case,  the  components  do  not  need  to  be  normalized  *) 
northcoord  :=  MAXOF(gunYcoord, tgtYcoord); 

■  eastcoord  :=  MAXOF(gunXcoord, tgtXcoord); 

ELSIF  SCHAR(gridIdentifierGun,l)  =  SCHAR( gridldentifierTgt, 1) 

(*  Locations  are  in  adjacent  North-South  grid 
identification  zones.*) 

DeltaX  :=  ABS(gunXcoord  -  tgtXcoord); 

DeltaY  :=  northcoord  -  southcoord; 

ELSIF  SCHAR(gridIdentifierGun,2)  =  SCHAR(gridIdentifierTgt,2) 

(*  Locations  are  in  adjacent  East-West  grid 
identification  zones.*) 

DeltaX  :=  eastcoord  -  westcoord; 

DeltaY  :=  ABS(gunYcoord  -  tgtYcoord); 

ELSE 

(*  Locations  are  in  diagonally  adjacent  grid 
identification  zones.*) 

DeltaX  :=  eastcoord  -  westcoord; 

DeltaY  :=  northcoord  -  southcoord; 

END  IF; 

(*  Now  determine  the  c>ngle,  GAMMA,  between  the  gun-target  line  and 
Grid  North. 

First  case. .. target  is  north  of  the  gun  *) 

IF  (northcoord  =  1000  +  tgtYcoord)  OR  (northcoord  =  tgtYcoord) 
DeltaY  :=  -  DeltaY; 

END  IF; 

(*  Second  case. .. target  is  east  of  the  gun  *) 

IF  (eastcoord  =  1000  +  tgtXcoord)  OR  (eastcoord  =  tgtXcoord) 

DeltaX  :=  -  DeltaX; 

END  IF; 

IF  DeltaY  =  0 
IF  DeltaX  >  0 
GAMMA  :=  pi/ 2.0; 

ELSE 

GAMMA  :=  -pi/2.0; 

END  IF; 

ELSE 

GAMMA  :=  ATAN(FL0AT(DeltaX)/FL0AT(DeltaY)); 

END  IF; 

IF  ((DeltaY  <  0)  AND  (DeltaX  >0))  (*gun  is  in  the  4th  qu  d*) 

OR  ((DeltaY  <  0)  AND  (DeltaX  <  0))(*gun  is  in  the  3rd  quad*) 
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GAMMA  :=  GAMMA  +  pi; 

END  IF; 

IF  ( (DeltaY  >  0)  AND  (DeltaX  <  0))  (*gun  is  in  the  2nd  quad*) 
GAMMA  :=  GAMMA  +  2. 0  *  pi; 

END  IF; 

(*  Now  we  can  get  aspect  angle  ALPHA  *) 

ALPHA  :=  AC0S( SIN( GAMMA)*SIN( THETA)  +  C0S(GAMMA)*C0S(THETA)); 

(*  The  aspect  angle  identifies  one  of  the  three  regions  of 
impact:  front,  flank,  rear  *) 

IF  (ALPHA  >=  7. 0*pi/4. 0)  OR  (ALPHA  <=  pi/4.0) 

RETURN  front; 

ELSIF  (ALPHA  >=  3. 0*pi/4. 0)  AND  ( ALPHA  <=  5.0*pi/4.0) 

RETURN  rear; 

ELSE 

RETURN  flank; 

END  IF; 

END  PROCEDURE; 

<* . .  *) 


PROCEDURE  AssessDamage(IN  missile  :  MissileRecordType; 

IN  target  :  EnemyVehicleObj; 

IN  impactPoint:  ImpactAreaType)  : 

TargetStatusType; 

BEGIN 

IF  ASK  BDA  UniformReal(0. 0,1.0)  < 

missile.  pKil-l[  ORD(target.  type)  ,0RD(  impactPoint)] 
RETURN  killed; 

ELSE 

RETURN  damaged; 

END  IF; 

END  PROCEDURE; 


END  MODULE. 
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I.  WEAPONS 


DEFINITION  MODULE  Weapons; 

TYPE 

MissileType  =  (Dragon,  TOW); 

KillProbList  =  ARRAY  INTEGER,  INTEGER  OF  REAL; 

(*  ARRAY  EnemyVehicleType,  IropactAreaType. . .  *) 

MissileEffectivenessList  =  ARRAY  MissileType  OF  KillProbList; 

MissileRecordType  =  RECORD 

system  :  MissileType; 

velocity, 

maxEff Range, 

prepTime, 

acquis  it ionTime, 

cutTime  :  REAL; 

ammoCount  :  INTEGER; 

pKit  :  REAL; 

pKill  :  KillProbList; 

END  RECORD; 

MissileSystemList  =  ARRAY  MissileType  OF  MissileRecordType; 

PROCEDURE  ReadMissileData; 

VAR 

missile  :  MissileRecordType; 

MissileSystem  :  MissileSystemList; 

KillProb  :  KillProbList; 

MissileEffect  :  MissileEffectivenessList; 

END  MODULE. 
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4  '  '  fc 


IMPLEMENTATION  MODULE  Weapons; 

FROM  IOMod  IMPORT  StreamObj,  FileUseType( Input); 

PROCEDURE  ReadKillProbData; 

VAR 

i  :  MissileType; 

j,  k  :  INTEGER; 

nilentry  :  STRING; 

KillDataFile  :  StreamObj; 

BEGIN 

NEW( KillDataFile); 

ASK  KillDataFile  TO  Open("pkill.  aat" ,  Input); 
NEW(MissileEffect,  Dragon. .TOW); 

FOR  i  :=  Dragon  TO  TOW 
NEW(Kil IProb,  0.  .3,  0.  .2); 

ASK  KillDataFile  TO  ReadLine(nilentry); 

FOR  j  :  -  0  TO  3 

ASK  KillDataFile  TO  ReadString(nilentry); 

FOR  k  :=  0  TO  2 

ASK  KillDataFile  TO  ReadReal(KillProb[ j ,k] ); 

END  FOR; 

END  FOR; 

ASK  KillDataFile  TO  ReadLine(nilentry); 

MissileEffect[ i]  :=  CL0NE(Kil IProb); 

DISPOSE(KillProb); 

END  FOR; 

ASK  KillDataFile  TO  Close; 

DISPOSE( KillDataFile); 

END  PROCEDURE;  (*  ReadKillProbData  *) 

- *) 

PROCEDURE  ReadMissileData; 

VAR 

i  :  MissileType; 

nilentry  :  STRING; 

WeaponsFile  :  StreamObj; 

BEGIN 

ReadKillProbData; 

NEW( WeaponsFile); 

ASK  WeaponsFile  TO  Open( "missile,  dat" ,  Input); 

ASK  WeaponsFile  TO  ReadLine( nilentry); 

NEW(MissileSystem,  Dragon.  .TOW); 

FOR  i  :=  Dragon  TO  TOW 
NEW(missile); 
missile. system  :=  i; 

ASK  WeaponsFile  TO  ReadLine(nilentry); 

ASK  WeaponsFile  TO  ReadReal(missile. velocity); 

ASK  WeaponsFile  TO  ReadReal(missile. maxEffRange); 

ASK  WeaponsFile  TO  ReadReal(missile.  prepTime); 

ASK  WeaponsFile  TO  ReadReal(missile.  acquis it ionTime); 

ASK  WeaponsFile  TO  ReadReal(missile.  cutTime); 
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ASK  WeaponsFile  TO  Readlnt(missile. ammoCount); 
ASK  WeaponsFile  TO  ReadReal(missile. pHit); 

ASK  WeaponsFile  TO  ReadLine(nilentry); 
missile. pKill  :=  MissileEffect[ i] ; 
MissileSystem[ missile. system]  :=  missile; 

END  FOR; 

ASK  WeaponsFile  TO  Close; 

DISP0SE( WeaponsFile); 

END  PROCEDURE; 

END  MODULE. 
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J.  ARTY 


DEFINITION  MODULE  Arty; 

FROM  Globals  IMPORT  UnitNameType; 

TYPE 

PROCEDURE  ScheduleOPFORArty; 

VAR 

ImpactTimeA, 

ImpactTiraeB, 

ImpactTimeC  :  REAL; 

Pk  :  ARRAY  UnitNameType  OF  REAL; 

END  MODULE. 
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IMPLEMENTATION  MODULE  Arty; 

FROM  MathMod  IMPORT  POWER,  EXP,  SQRT; 

FROM  RandMod  IMPORT  RandomOb j ,  FetchSeed; 

FROM  Globals  IMPORT  ALL  UnitNameType,  RoundGenerator; 
FROM  Menu  IMPORT  selectedModel,  walkingThru; 

PROCEDURE  ScheduleOPFORArty; 

CONST 

GunsFiring  =  6; 

LethalArea  =  1963. 495  ;  (*  i2  -  lethal  radius  =  25ra  *) 
Target Area  =  28600. 0  ;  (*  NTC  IFCAS  Box  *) 

VAR 

RoundsPerGun  :  INTEGER; 

Z  :  REAL; 

Unit  :  UnitNameType; 

BEGIN 

CASE  selectedModel 


WHEN  1  : 

ImpactTimeA 

;  5 

25200.0 

ImpactTimeB 

:  = 

28800.0 

ImpactTimeC 

:  = 

3600.0 

WHEN  2  : 

ImpactTimeA 

:  = 

3600.  0 

ImpactTimeB 

:  = 

12096.0 

ImpactTimeC 

:  - 

3600. 0 

OTHERWISE 

ImpactTimeA 

:  - 

5000.  0 

ImpactTimeB 

:  = 

7200.0 

ImpactTimeC 

:  = 

3600. 0 

END  CASE; 

NEW(Pk,  A.. 

C); 

# 

FOR  Unit  := 

A  TO  C 

RoundsPerGun  :=  ASK  RoundGenerator  Uniforming  1,3); 

Z  :=  FLOAT( GunsFiring  *  RoundsPerGun)  *  LethalArea  /  TargetArea; 
Pk[  Unit]  :=  POWER((1.0  -  EXP( -SQRT(Z)))  ,2.  0); 

END  FOR; 

END  PROCEDURE; 

END  MODULE. 
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K.  MOE 


DEFINITION  MODULE  MOE; 

TYPE 

PROCEDURE  Mean(IN  replicationNumber  :  INTEGER; 

IN  oldAvg  :  REAL; 

.  IN  currentSample  :  REAL)  :  REAL; 


PROCEDURE  MOEmean(IN  replicationNumber  :  INTEGER; 

IN  currentSample  :  REAL); 

PROCEDURE  MOEvariance(IN  replicationNumber  :  INTEGER 

IN  oldAvg  :  REAL; 

IN  currentSample  :  REAL); 


PROCEDURE  ReportStats; 

VAR 

TotalOPFORlosses , 

TotalOPFORstarting  :  INTEGER; 

MeanMOE,  VarianceMOE  :  REAL; 

meanMissionTime, 
meanAttritionForThisRun, 
percentAttrition  :  REAL; 

END  MODULE. 
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IMPLEMENTATION  MODULE  MOE; 

FROM  MathMod  IMPORT  POWER; 

FROM  Globals  IMPORT  CutputFile; 

FROM  Menu  IMPORT  nuraberOfReplications; 

PROCEDURE  Mean( IN  replicationNumber  :  INTEGER; 

IN  oldAvg  :  REAL; 

IN  currentSample  :  REAL)  :  REAL; 


BEGIN 

RETURN  ((FL0AT( replicationNumber)  *  oldAvg)  + 

currentSample)  /  FLOAT( replicationNumber  +  1); 

END  PROCEDURE; 


PROCEDURE  MOEmeanCIN  replicationNumber  :  INTEGER; 

IN  currentSample  :  REAL); 


VAR 

newMOE,  oldAvg  :  REAL; 

BEGIN 

newMOE  :=  currentSample/FLOAT(TotalOPFQRstarting); 
oldAvg  ;  =  MeanMOE; 

MeanMOE  ((FLOAT( replicationNumber)  *  oldAvg)  + 

newMOE)  /  FLOAT( replicationNumber  +  1); 
MOEvariance( replicationNumber ,  oldAvg,  newMOE); 

END  PROCEDURE; 


PROCEDURE  MOEvariance( IN  replicationNumber  :  INTEGER; 

IN  oldAvg  :  REAL; 

IN  currentSample  :  REAL); 

VAR 

rn, 

oldVariance  :  REAL; 

BEGIN 

rn  :=  FL0AT( replicationNumber); 
oldVariance  :=  VarianceMOE; 

IF  replicationNumber  =  0 
VarianceMOE  :=  0.0; 

ELSIF  replicationNumber  =  1 

VarianceMOE  :=  P0WER((oldAvg  -  currentSample),  2.0)  /  2.0 
ELSE 

VarianceMOE  :=  (((rn  -  1.0)/rn)  *  oldVariance  )  + 

P0WER( oldAvg,  2.0)  +’ 

((1.  0/rn)*POWER( currentSample, 2. 0))  - 
(((rn+1. 0)/rn)  *  P0WER( MeanMOE,  2.0))  ; 

END  IF; 

END  PROCEDURE; 

PROCEDURE  ReportStats; 

BEGIN 

ASK  OutputFile  TO  WriteString("The  mean  Destroy  MOE  over  ") 
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ASK  QutputFile  TO  WriteInt(numberOfReplications ,5); 

ASK  OutputFile  TO  WriteStringC"  replications  is  "); 

ASK  OutputFile  TO  WriteReal(MeanMOE,6,4); 

ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteStringC "The  variance  of  the  Destroy  MOE  is  ") 
ASK  OutputFile  TO  WriteReal(VarianceM0E,6,4); 

ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteString("The  mean  mission  time  is  "); 

ASK  OutputFile  TO  WriteReal(meanMissionTime,8,4); 

ASK  OutputFile  TO  WriteStringC"  hrs."); 

ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteLn; 

ASK  OutputFile  TO  WriteString("The  mean  attrition  for  the"); 

ASK  OutputFile  TO  WriteStringC"  battalion  was  "); 

ASK  OutputFile  TO  WriteReal(percentAttrition  *  100.0,8,4); 

ASK  OutputFile  TO  WriteStringC"  percent."); 

END  PROCEDURE; 

END  MODULE. 


9 


91 


L.  MENU 


DEFINITION  MODULE  Menu; 

TYPE 

PROCEDURE  RunMenul; 

PROCEDURE  RunMenu2; 

PROCEDURE  Cleanup; 

VAR 

selectedModel, 

nurnberOfReplications  :  INTEGER 

•eplicating, 
v*lkingThru, 

playingArty  :  BOOLEAN 

END  MODULE. 


-  V  > 


IMPLEMENTATION  MODULE  Menu; 

FROM  CRTMod  IMPORT  Clear Screen; 

FROM  IOMod  IMPORT  ReadKey; 

FROM  MapRecon  IMPORT  UnitRoute,  UnitTarget List; 

FROM  OPFOR  IMPORT  EnemyVehicleRef; 


TYPE 


PROCEDURE  RunMenul; 
VAR 

selection  :  CHAR; 


BEGIN 


Clc&rScrccn' 

OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT; 

OUTPUTC"  Welcome  to  the  Light  Infantry  Attack  Simulation  "); 
OUTPUT;  OUTPUT; 

OUTPUTC"  Select  the  Tactic  you  wish  to  experiment  with."); 

OUTPUT;  OUTPUT; 

OUTPUTC"  (1)  Base-Line  Model  "); 

OUTPUT; 

OUTPUTC"  (2)  Rear  Attack  "); 

OUTPUT; 

OUTPUTC"  '3)  Flank  Attack  "); 

OUTPUT; 


selection  ReadKeyC); 

selectedModel  STRTOINTC selection); 


RunMenu2; 

END  PROCEDURE; 


PROCEDURE  RunMenu2; 

VAR 

selection  ;  CHAR; 

BEGIN 

ClearScreen; 

OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT: 

OUTPUTC"  You  have  the  option  to  :  "); 

OUTPUT;  OUTPUT;  OUTPUT; 

0UTPUT("C1)  Replicate  the  model  a  fixed  number  of  times,  or..."); 

OUTPUT; 

0UTPUT("C2)  Conduct  a  model  Walk-Through  WITH  Artillery,  or"); 

OUTPUT; 

OUTPUTC"(3)  Conduct  a  Walk-Through  WITHOUT  Artillery"); 

OUTPUT; 

selection  :=  ReadKeyC); 

IF  selection  =  "l" 
replicating  :=  TRUE; 
walkingThru  :=  FALSE; 
playingArty  :=  TRUE; 

ELSIF  selection  =  "2" 
replicating  :=  FALSE; 
walkingThru  :=  TRUE; 


99 


numberOfReplications  :=  1; 
playingArty  :=  TRUE; 

ELSE 

replicating  :=  FALSE; 
walkingThru  :=  TRUE; 
numberOfReplications  :=  1; 
playingArty  :=  FALSE; 

END  IF; 

IF  replicating 

OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT;  OUTPUT; 
OUTPUT("  Enter  the  number  of  replications"); 
INPUT(numberOfReplications); 

END  IF; 

ClearScreen; 

END  PROCEDURE; 

PROCEDURE  CleanUp; 

BEGIN 

DISPOSE( Enemy VehicleRe  f ) ; 

DISPOSE(UnitRoute); 

DISPOSE(UnitTargetList); 

END  PROCEDURE; 

END  MODULE. 
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APPENDIX  B.  INPUT  DATA  FILES 

A.  OPFOR  DATA 


Veh  ID  if  Type  Xref  # 


107  0 

140  0 

138  0 

141  0 

208  2 

94  0 

99  0 

108  0 

106  0 

162  3 

118  1 

95  0 

97  0 

113  0 


location 

orientation 

NK388180 

135 

NK361194 

70 

NK359190 

80 

NK358185 

115 

NK357177 

97 

NK350201 

45 

NK335188 

no 

NK332182 

13G 

NK331180 

130 

NK329174 

90 

NK332157 

80 

NK329190 

120 

NK326189 

135 

NK315181 

108 

B.  MISSILE  DATA 


Missile  Vel  HaxEffRange 
DRAGON 

Prep 

Acquire 

Cut 

AmmoCount 

pHit 

66.  667  1000.  0 

TOW  (HMMWV  mounted) 

20.0 

5.  0 

2.0 

2 

0.6475 

178.571  3750.0 

5.0 

5.  0 

2.0 

10 

0. 7322 

C.  P-KILLDATA 


DRAGON  vs. 

front 

flank 

rear 

BMP 

0.  72 

0.  655 

0.72 

BRDM 

0.99 

0.985 

0.99 

T72 

0.  185 

0.405 

0. 185 

ZSU234 

0.80 

0.815 

0.80 

TOW  vs. 

front. 

flank 

rear 

BMP 

0.965 

0.965 

0.965 

BRDM 

0.995 

0.985 

0.995 
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T72 

ZSU234 


0.225 

0.965 


0.475 

0.965 


0.225 
0.  965 


D.  TRANSPORTATION  DATA 


METHOD 

DAY 

NIGHT 

Conv  Factor(m/s) 

Foot 

2.4 

1.6 

0.2778 

Truck 

12.0 

8.  0 

0.2778 

AirAssault 

145.0 

100.0 

0.5111 

102 


APPENDIX  C.  SCENARIO  INPUT 


A.  BASELINE  MODEL 


Symbol  Xref# 

coordinate  //  firing 

pos  Firing  Psns 

A  Company 

14 

NK325185 

0 

13 

NK333175 

3 

NK332172 

NK333173 

NK335176 

12 

NK336171 

3 

NK334170 

NK335172 

NK337173 

10 

NK344164 

0 

9 

NK360164 

0 

8 

NK369171 

0 

7 

NK372181 

0 

5 

NK375188 

0 

3 

NK390198 

0 

2 

NK405199 

0 

1 

NK411200 

0 

0 

NK417198 

0 

A  Company  Target  List 

//  targets 

Target  ID  numbers 

4 

162  106  108  113 

B  Company 

14 

NK330195 

0 

13 

NK335185 

3 

NK334184 

NK335185 

NK337187 

12 

NK341183 

3 

NK339180 

NK341183 

NK343184 

10 

NK344164 

0 

9 

NK360164 

0 

8 

NK369171 

0 

7 

NK372181 

0 

5 

NK375188 

0 

3 

NK390198 

0 

2 

NK405199 

0 

1 

NK411200 

0 

0 

NK4171S8 

0 

B  Company  Target  List 

V  targets 

Target  ID  numbers 

3 

97  95  99 

C  Company 

14 

NK360187 

0 

13 

NK362188 

3 

NK360185 

NK362188 

NK362191 

12 

NK365191 

3 

NK364188 

NK364191 

NK364192 

6 

NK368196 

0 

4 

NK369204 

0 

1 

NK360201 

0 

0 

NK353203 

0 

C  Company  Target  List 

#  targets 

Target  ID  numbers 

4 

140  138  141  208 
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B.  REAR  ATTACK  MODEL 


Symbol  Xref #  coordinate 

A  Company 

14  NK331176 

13  NK322179 

12  NK315185 

3  NK311183 

2  NK303188 

1  NK301190 

0  NK297193 

A  Company  Target  List 
#  targets 


B  Company 
14 
13 
12 
4 
1 
0 


NK332186 

NK326189 

NK320190 

NK315193 

NK301190 

NK297193 


B  Company  Target  List 
#  targets 


C  Company 
14 
13 
12 
7 
6 
5 
1 
0 


NK357180 

NK356187 

NK351192 

NK346195 

NK335198 

NK318200 

NK301190 

NK297193 


C  Company  Target  List 
#  targets 

5  94 


#  firing  pos  Firing  Psns 
0 

3  NK323180  NK323178  NK322177 

3  NK315183  NK316184  NK316185 

0 
0 
0 
0 

Target  ID  numbers 
162  106  108 


0 

3  NK324186  NK326189  NK327191 

3  NK319189  NK320190  NK321191 

0 
0 
0 

Target  ID  numbers 
97  99 


0 

3  NK354184  NK356187  NK357188 

3  NK349189  NK351192  NK353194 

0 
0 
0 
0 
0 

Target  ID  numbers 
140  138  141  208 
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C.  FLANK  ATTACK  MODEL 


Symbol  Xref# 

coordinate 

if  firing  pos  Firing  Psns 

A  Company 

14 

NK329178 

0 

13 

NK325188 

3 

NK322187 

NK325188 

NK323187 

12 

NK326199 

3 

NK325199 

NK326199 

NK327199 

2 

NK329210 

0 

1 

NK335217 

0 

0 

NK335219 

0 

A  Company  Target  List 

if  targets 

Target  ID 

numbers 

3 

95 

97 

113 

B  Company 

14 

NK331178 

0 

13 

NK331190 

3 

NK329184 

NK330182 

NK332185 

12 

NK333198 

3 

NK332198 

NK333198 

NK334198 

3 

NK333207 

0 

1 

NK335217 

0 

0 

NK335219 

0 

B  Company  Target  List 

if  targets 

Target  ID 

numbers 

4 

99 

108 

106  162 

C  Company 

14 

NK355180 

0 

13 

NK356185 

3 

NK354185 

NK356185 

NK359186 

12 

NK360198 

3 

NK355199 

NK360198  NK361198 

5 

NK354204 

0 

4 

NK345207 

0 

1 

NK335217 

0 

0 

NK335219 

0 

C  Company  Target  List 

if  targets 

Target  ID 

numbers 

5 

94 

140  138 

141  208 

<1 
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APPENDIX  D.  SAMPLE  ATTRITION  OUTPUT 

Attrition  to  platoon  Cl  with  13  losses. 

Strengths  for  each  class  of  soldier 

rifleman  8 

autorifleman  3 

grenadier  3 

raachinegunner  0 

dragou'gunner  1 

leader  11 

Attrition  to  platoon  C2  with  13  losses. 

Strengths  for  each  class  of  soldier 

rifleman  7 

autorifleman  4 

grenadier  3 

machinegunner  1 

dragongunner  2 

leader  9 

Attrition  to  platoon  C3  with  13  losses. 

Strengths  for  each  class  of  soldier 

rifleman  8 

autorifleman  3 

grenadier  5 

machinegunner  1 

dragongunner  1 

leader  8 

Attrition  to  platoon  A1  with  8  losses. 

Strengths  for  each  class  of  soldier 
10 
3 
6 
1 
1 

io 

Attrition  to  platoon  A2  with  8  losses. 

Strengths  for  each  class  of  soldier 

rifleman  9 

autorifleman  3 

grenadier  5 

machinegunner  1 

dragongunner  2 

leader  11 

Attrition  to  platoon  A3  with  8  losses. 

Strengths  for  each  class  of  soldier 

rifleman  5 

autorifleman  5 

grenadier  6 

machinegunner  1 

dragongunner  2 

leader  12 

Attrition  to  platoon  B1  with  17  losses. 

Strengths  for  each  class  of  soldier 
rifleman  6 


rifleman 
autorifleman 
grenadier 
machinegunner 
dragongunner 
leader 
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autorifleman  4 

grenadier  2 

machinegunner  1 

dragongunner  0 

leader  9 

Attrition  to  platoon  B2  with  17  losses. 

Strengths  for  each  class  of  soldier 

rifleman  5 

autorifleman  3 

grenadier  3 

machinegunner  1 

dragongunner  1 

leader  9 

Attrition  to  platoon  B3  with  17  losses. 

Strengths  for  each  class  of  soldier 

rifleman  6 

autorifleman  3 

grenadier  4 

machinegunner  1 

dragongunner  1 

leader  7 
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APPENDIX  E.  SAMPLE  ENGAGEMENT  HISTORY 


All  damaged  113 
Bll  killed  97 
C31  missed  94 
C32  killed  140 
C21  damaged  138 
B21  killed  95 
Cll  missed  141 
B31  missed  99 

C31  moved  out  of  range  of  target  94 

Cll  damaged  141 

C21  killed  138 

C12  damaged  208 

B31  killed  99 

C12  killed  208 

Handing  over  141  to  platoon  C2 

C22  killed  141 

A22  missed  162 

All  killed  113 

A31  damaged  106 

A21  damaged  108 

A22  damaged  162 

A31  missed  106 

A21  missed  108 

Reassigning  106  to  A32 

A32  damaged  106 

A32  killed  106 

Handing  over  162  to  platoon  A1 
A12  missed  162 
A12  missed  162 

Unable  to  handover  target  162 
Unable  to  handover  target  108 
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APPENDIX  F.  BASELINE  MODEL  OUTPUT 


A.  RESULTS  OF  500  REPLICATIONS 

The  mean  Destroy  MOE  over  500  replications  is  0. 5881 
The  variance  of  the  Destroy  MOE  is  C. 0105 
The  mean  mission  time  is  8. 0390  hrs, 

The  mean  attrition  for  the  battalion  was  33,9972  percent. 

B.  RESULTS  OF  A  TRIAL  WITHOUT  ARTILLERY 

Enemy  BMP  number  138  KIA, 

Killed  at  H  +  7.3hrs  by  weapon  type  dragon  from  a  frontal  shot. 
Enemy  BMP  number  141  KIA. 

Killed  at  H  +  7. 3hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  99  KIA. 

Killed  at  H  +  7. 3hrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number  97  KIA. 

Killed  at  H  +  7. 9hrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  T72  number  208  KIA. 

Killed  at  H  +  7.9hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  95  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number  140  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  108  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  ZSU234  number  162  KIA. 

Killed  at  H  +  8. 2hrs  by  weapon  type  dragon  from  a  frontal  shot. 
The  mean  Destroy  MOE  over  1  replications  is  0. 6429 
The  variance  of  the  Destroy  MOE  is  0. 0000 
The  mean  mission  time  is  8.2474  hrs. 
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C.  RESULTS  OF  A  TRIAL  WITH  ARTILLERY 


Enemy  BMP  number  138  KIA. 

Killed  at  H  +  7.3hrs  by  weapon  type  dragon  from  a  frontal  shot. 
Enemy  BMP  number  141  KIA. 

Killed  at  H  +  7.3hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  99  KIA. 

Killed  at  H  +  7. 3hrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number  140  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  flank  shot. 

Enemy  ZSU234  number  162  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  frontal  shot. 
Enemy  BMP  number  108  KIA. 

Killed  at  H  +  8. Ohrs  by  weapon  type  dragon  from  a  frontal  shot.  , 

Enemy  BMP  number  106  KIA. 

Killed  at  H  +  8. lhrs  by  weapon  type  dragon  from  a  frontal  shot. 
The  mean  Destroy  MOE  over  1  replications  is  0.5000 
The  variance  of  the  Destroy  MOE  is  0.0000 
The  mean  mission  time  is  8.4447  hrs. 

The  mean  attrition  for  the  battalion  was  34. 3475  percent. 
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APPENDIX  G.  REAR  ATTACK  MODEL  OUTPUT 


A.  RESULTS  OF  500  REPLICATIONS 

t  The  mean  Destroy  MOE  over  500  replications  is  0. 6757 

The  variance  of  the  Destroy  MOE  is  0. 0158 
The  mean  mission  time  is  5. 1685  hrs. 

The  mean  attrition  for  the  battalion  was  33.9972  percent. 

B.  RESULTS  OF  A  TRIAL  WITHOUT  ARTILLERY 

Enemy  BMP  number  97  KIA. 

Killed  at  H  +  4. lhrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  140  KIA. 

Killed  at  H  +  4. lhrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  95  KIA. 

Killed  at  H  +  4. lhrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  138  KIA. 

Killed  at  H  +  4. 9hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  •  99  KIA. 

Killed  at  K  +  4. 9hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  T72  number  208  KIA. 

Killed  at  H  +  4. 9hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  141  KIA. 

Killed  at  H  +  5.0hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  113  KIA. 

j  Killed  at  H  +  5.0hrs  by  weapon  type  dragon  from  a  frontal  shot. 

Enemy  BMP  number  106  KIA. 

i  Killed  at  H  +  5. lhrs  by  weapon  type  dragon  from  a  flank  shot. 

The  mean  Destroy  MOE  over  1  replications  is  0. 6429 
The  variance  of  the  Destroy  MOE  is  0. 0000 
The  mean  mission  time  is  5.  1876  hrs. 


ill 


C.  RESULTS  OF  A  TRIAL  WITH  ARTILLERY 


Enemy  BMP  number  94  KIA. 

Killed  at  H  +  4. lhrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  95  KIA. 

Killed  at  H  +  4. lhrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  140  KIA. 

Killed  at  H  +  4. 2hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  99  KIA. 

Killed  at  H  +  4. 9hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  138  KIA. 

Killed  at  H  +  5.0hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  97  KIA. 

Killed  at  H  +  S.Ohrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  ZSU234  number  162  KIA, 

Killed  at  H  +  5.  Ohrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  106  KIA. 

Killed  at  H  +  5. Ohrs  by  weapon  type  dragon  from  a  flank  shot. 
The  mean  Destroy  MOE  over  1  replications  is  0.5714 
The  variance  of  the  Destroy  HOE  is  0. 0000 
The  mean  mission  time  is  5:3100  hrs. 

The  mean  attrition  for  the  battalion  was  34. 3475  percent. 
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APPENDIX  H.  FLANK  ATTACK  MODEL  OUTPUT 


A.  RESUI  .TS  OF  500  REPLICATIONS 


The  Mean  Destroy  MOE  over  500  replications  is  0.6330 
The  variance  of  the  Destroy  MOE  is  0. 0196 
The  mean  mission  time  is  3. 9922  hrs. 

The  mean  attrition  for  the  battalion  was  33.9972  percent. 

B.  RESULTS  OF  A  TRIAL  RUN  WITHOUT  ARTILLERY 


Enemy  BMP  number  94  KIA. 

Killed  at  H  +  2. 5hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  95  KIA. 

Killed  at  H  +  2. 5hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  97  KIA. 

Killed  at  H  +  3. 6hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  138  KIA.- 

Killed  at  H  +  3. 7hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  T72  number  208  KIA. 

Killed  at  H  +  3. 7hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  140  KIA. 

Killed  at  H  +  3. ?hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  141  KIA. 

Killed  at  H  +  3. 8hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  99  KIA. 

Killed  at  H  +  4.3hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  108  KIA. 

Killed  at  H  +  4. 3hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  106  KIA. 

Killed  at  H  +  4.4hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  ZSU234  number  162  KIA. 

Killed  at  H  +  4. 6hrs  by  weapon  type  dragon  from  a  flank  shot. 
The  mean  Destroy  MOE  over  1  replications  is  0. 7857 
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The  variance  of  the  Destroy  MOE  is  0. 0000 
The  mean  mission  time  is  4.5680  hrs. 

C.  RESULTS  OF  A  TRIAL  RUN  WITH  ARTILLERY 

Enemy  BMP  number  94  KIA. 

Killed  at  H  >  2. 6hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  97  KIA. 

Killed  at  H  +  2. 6hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  95  KIA. 

Killed  at  H  +  3. 6hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  138  KIA. 

Killed  at  H  +  3. 7hrs  by  weapon  type  dragon  from  a  rear  shot. 

Enemy  BMP  number  140  KIA. 

Killed  at  H  +  3. 7hrs  by  weapon  type  dragon  from  a  flank  shot. 
Enemy  BMP  number  141  KIA. 

Killed  at  H  +  3. 8hrs  by  weapon  type  dragon  from  a  rear  shot. 
Enemy  BMP  number  113  KIA. 

Killed  at  H  +  3. 8hrs  by  weapon  type  dragon  from  a  flank  shot. 
The  mean  Destroy  MOE  over  1  replications  is  0.5000 
The  variance  of  the  Destroy  MOE  is  0. 0000 
The  mean  mission  time  is  4.3956  hrs. 

The  mean  attrition  for  the  battalion  was  34. 3475  percent. 
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